verticale lijnen automatisch plaatsen op meetlat

[ddr]

Ik zou graag automatisch verticale lijnen plaatsen op een bepaalde afstand op de meetlat.

Meetlat zou van 0 tot 4000 moeten gaan.

Plaats van  verticale lijnen word ingegeven in cellen.

zie vb voor meer duiding.

 

 

maatlat.xlsm

[JeanPaul28]

Hoop dat deze maatlat is wat je zoekt

Kopie van maatlat.xlsm

[popipipo]

Een iets andere interpretatie

Kun dit misschien omzetten naar jouw voorbeeld

 

https://www.vertex42.com/ExcelArticles/create-a-timeline.html

[ddr]

@ jeanpaul28 

bedankt. is perfect zo.

mercikes.

[ddr]

werkt goed, maar de lijnen passen zich niet aan omdat in  e3 tot e6 een koppeling staat naar andere cel.

Als ik in h3 tot h6 de waarde aanpas gaat deze wel over naar e3 tot e6 maar de lijn verplaatst zich niet.

Als ik een waarde ingeef in  e3 tot e6 past de lijn zich wel aan.

Hoe krijg ik dit voor elkaar?

 

Kopie van maatlat(1).xlsm

[plongske]

Heb zelf weinig kennis van VBA maar

If Not Intersect(Target, Range("E3:E6")) Is Nothing Then

 

Dan pas je deze toch aan naar H3:H6

 

[JeanPaul28]

Aangepaste versie

Kopie van Kopie van maatlat(1).xlsm

[plongske]

Dan waren mijn vermoedens toch juist

[JeanPaul28]

@plongske ja, maar ook een verschuiving naar links, "With ActiveSheet.Shapes(Target.Offset(, -1).Value)" moet zijn With ActiveSheet.Shapes(Target.Offset(, -4).Value)

 

Groeten

[JeanPaul28]

En hier een uitgebreide versie

Kopie3 van maatlat.xlsm