VBA lopende tijd in Excel (macro sheet)

[Jaap12051960]

Als ik onderstaande invoer in Excel document en het op sla, en deze op later moment open laat hij de tijd zien van het afsluiten en die blijft staan en veranderd niet. Weet iemand hoe dat kan ?

Sub Tijd()
Dim interval As Date
interval = TimeValue("00:00:01")
Worksheets(1).Range("C4") = Format(Time, "hh:mm:ss")
Application.OnTime Now + interval, "Tijd"
End Sub

Het gaat om een lopende klok in een macro document

Alvast bedankt
Jaap

 

[lam201]

De macro zal dan opnieuw gestart moeten worden.
Je kunt dit evt opnemen in de Workbook_open sectie

Private Sub Workbook_Open()
Tijd
End Sub

Maar wat is het nut van de klok?
Zodra je naar een ander werkboek gaat, krijg je een foutmelding.
Als je rechts onderin je scherm kijkt, staat daar ook al een klok...

 

[AHulpje]

Als het gaat om de tijd van het afsluiten kun je het ook zo doen:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Worksheets(1).Range("C4") = Format(Time, "hh:mm:ss")
End Sub

 

[Jaap12051960]

Als het gaat om de tijd van het afsluiten kun je het ook zo doen:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Worksheets(1).Range("C4") = Format(Time, "hh:mm:ss")
End Sub

Sub Tijd()

Dim interval As Date

interval = TimeValue("00:00:01")

Worksheets(1).Range("C4") = Format(Time, "hh:mm:ss")

Application.OnTime Now + interval, "Tijd"

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Worksheets(1).Range("C4") = Format(Time, "hh:mm:ss")

End Sub

Dan krijg ik een fout bij Sub tijd()

 

[edmoor]

Vergeet die Sub Tijd.
Die drie regels van AHulpje zijn voldoende.
Wel in de ThisWorkbook sectie plaatsen uiteraard.

 

[AHulpje]

Dat is volstrekt logisch, je moet geen Sub in een Sub plakken.
Plaats de Sub Workbook_BeforeSave in de ThisWorkbook module, de Sub Tijd heb je dan niet meer nodig.
Zie bijgaand voorbeeld.

 

[HSV]

Als het gaat om de tijd van het afsluiten zet je het in de 'BeforeClose- Event'.

 

[AHulpje]

@HSV
En als je bij het sluiten van het document besluit het document niet op te slaan?

 

[HSV]

Als het gaat om de tijd van het afsluiten kun je het ook zo doen:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Worksheets(1).Range("C4") = Format(Time, "hh:mm:ss")
End Sub

Is niet mijn citaat.