Horizontaal naar verticaal zetten?

[kevinkuijer]

in het bestand die ik hier bijvoeg staat de tijdlijn verticaal en de tijden horizontaal,
ik zou graag willen dat de tijden verticaal onder elkaar staan en de tijdlijn horizontaal gaat en dan zou ik graag willen dat de tijden niet per uur staan maar per half uur en dat de tijd 24uur duurt als dat mogelijk is

weet iemand hoe dat werkt?

groetjes

Bekijk bijlage Tijdslijn.xls

 

[WHER]

Zoiets dan, zie bijlage.

 

[kevinkuijer]

ja zo maar nu loopt de tijd niet goed

groetjes

 

[danny147]

Beste kevinkuijer

Verander de code in deze:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iTijd As Integer
iTijd = 1
    While Cells(iTijd, 2).Text <> Format(Now(), "HH:" & "00")
        iTijd = iTijd + 1
    Wend
    ActiveSheet.Shapes("Line 1").Top = Cells(iTijd, 2).Top + Cells(iTijd, 2).Height / 30 * Minute(Now())
End Sub

Groetjes Danny. :thumb:

 

[WHER]

Beste kevin,

Wat bedoel je met: nu loopt de tijd niet goed.
toen ik het voorbeeldbestand opende om 21.34 sprong de tijdslijn naar de ruimte tussen 21.30 en 22.00 uur, zie bijlage.

 

[danny147]

Beste Wher

Je kan het op 2 manieren bekijken.

21:34 ligt tussen 21:30 en 22:00
of de 21:34 geeft ook 22:04 weer

Het is maar hoe je het bekijkt.

Groetjes Danny. :thumb:

 

[kevinkuijer]

Ik zal het even duidelijk maken,
Ik wil eigenlijk netzoiets als de google agenda maken maar dan op excel.
omdat dit handiger is met de rest van de excel bestanden.

groetjes