Huidige tijd uitgedrukt in lijn

[ronaldvm1964]

Ik zou graag een lijn in het bijgevoegde bestandje hebben wat de huidige tijd voor stelt.
Als voorbeeld lijn gezet op 16:00 uur.
Ik ben al aan het zoeken geweest hoe dit moet maar ik kom er niet uit.

Ik heb een gebied aangegeven met een tijdvak van 05:00 t/m 22:00 uur.
Als het bijvoorbeeld 15:30 is, dan moet de lijn halverwege kolom 15:00 uur lopen.

Gr,
Ronald

 

[robdgr]

Ronald,

Hoe je een lijn kunt tekenen op basis van tijd weet ik niet. Wel kom ik op

=UUR(E$1)=UUR(NU())

in voorwaardelijke opmaak zodat de kolom wordt gekleurd. Ik vermoed dat je vraag niet kan, maar word graag verbeterd.

 

[ronaldvm1964]

Dit werkt ook goed. Ik hoop alleen dat er een manier is om een lijn over de kolom te laten lopen.

 

[Roncancio]

In bijgevoegd bestand heb ik de tijdslijn aangebracht.

Met vriendelijke groet,


Roncancio

 

[Roncancio]

Ik merk dat ik een slordige fout heb gemaakt.
Voor de ochtenduren zal de code niet werken.

Je kunt dit op 2 manieren oplossen:

1. Pas de tekstopmaak aan zodat er bijvoorbeeld 08:00 staat ipv 8:00
2. Verwijder in de code een H in de coderegel
   

   While Cells(1, iTijd).Text <> Format(Now(), "HH:" & "00")

Met vriendelijke groet,


Roncancio

 

[robdgr]

Roncancio,

Perfecte nazorg. Ik testtte hem zojuist, 11:30 uur, en toen deed hij het direct goed, maar heb hem toch ook aangepast.

 

[Roncancio]

Met uren die uit 2 cijfers bestaat (10, 11, etc) ging het goed, maar niet bij uren voor 10:00.

Bedankt voor de feedback.

Met vriendelijke groet,


Roncancio

 

[sylvester-ponte]

hoi allemaal

deze kijkt niet naar de opmaak maar naar de waarde:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim iTijd As Range
    For Each iTijd In Range("1:1")
        If iTijd > Time Then
            ActiveSheet.Shapes("Line 1").Left = iTijd(1, 0).Left + iTijd(1, 0).Width / 60 * Minute(Time)
            Exit Sub
        End If
    Next iTijd
End Sub

groet sylvester

 

[robdgr]

Sylvester,

De code werkte niet, wat bleek te liggen aan de naam van de lijn. In naamvak en code hernoemd en het werkt.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim iTijd As Range
    For Each iTijd In Range("1:1")
        If iTijd > Time Then
            ActiveSheet.Shapes("[B][COLOR="red"]tijdlijn[/COLOR][/B]").Left = iTijd(1, 0).Left + iTijd(1, 0).Width * Time
            Exit Sub
        End If
    Next iTijd
End Sub

 

[Roncancio]

Dat probleem kan je ondervangen door het indexgetal van de lijn te gebruiken.
M.a.w. als er maar 1 lijn op het werkblad is, kan je gebruik maken van

ActiveSheet.Lines(1)

De code kan overigens op 1 regel:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Lines(1).Left = Range("1:1").Find(Format(Now(), "H:" & "00"), , xlValues, xlWhole).Left + Range("1:1").Find(Format(Now(), "H:" & "00"), , xlValues, xlWhole).Width / 60 * Minute(Now())
End Sub

Met vriendelijke groet,


Roncancio

 

[ronaldvm1964]

Ze werken allebei goed, dank je wel

 

[MMV]

Dit blijft toch "hogere" kunst mensen.....