Huidige tijd op werkblad

[Rik Blok]

Graag wil ik op een werkblad de huidige tijd (in uren) hebben op basis van de computertijd.
De tijd moet steeds aangepast worden, dus niet alleen bij het bewerken van het werkblad (functie NU)
Verder wil ik op basis van deze tijd bepalen of het ochtend, middag, avond of nacht is.
De grenzen staan al op het werkblad.
Ik ben niet zo ervaren met VB, dus graag een komplete routine.

 

[HSV]

Compleet.

In een standaard module.

Sub StartKlok()
 Calculate
  Application.OnTime Now + TimeSerial(0, 0, 1), "StartKlok"
End Sub

In ThisWorkbook.

Private Sub Workbook_Open()
 StartKlok
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Application.OnTime Now + TimeSerial(0, 0, 1), "startklok", , False
End Sub

In A1: =TEKST(NU();"uu:mm:ss")

 

[snb]

Ik betwijfel of de macro hiermee gaat stoppen....

 

[HSV]

Ik weet de betekenis van soppen @snb....., maar in jouw verband ??

 

[snb]

Ja, MS heeft weer vele nieuwe VBA methodes toegevoegd in de laatste versie van Office ....

 

[HSV]

Ah, het was een typefoutje van je. ..soppen...stoppen. :d

 

[snb]

Overkomt me anders nooooooit.....

 

[HSV]

Denk je, moet ik ze voor je opzoeken ?
Nee, doe ik ook maar niet.

'Vlug' zij tegen 'Goed', waarom is het toch zo zelden dat ik je ontmoet.

 

[HSV]

Lekker sociaal ben jij.
In 2003 even een vraag stellen en niks weer van je laten horen tot 2012 bij een nieuwe vraag, en daar ook nog geen reactie op.
Ik wacht op 2021.