Macro lopende tijd stoppen

[PeterBijns]

Beste allemaal,
Ik heb deze macro om een lopende tijd in een cel te plaatsen dat werkt uitstekend, maar ik wil ook deze macro op een gegeven moment te stoppen (uitzetten) hoe doe ik dat?
Alvast dank voor de macro die dit doet. Groet, Peter


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

 

[HSV]

Dat zit zo.
Jouw code verwijderen en onderstaande geheel terugplaatsen.

Option Explicit
Dim interval


Sub Tijd()
interval = DateAdd("s", 1, Time)
  Sheets(5).Range("R1") = Format(Time, "hh:mm:ss")
Application.OnTime interval, "Tijd"
End Sub


Sub stop_tijd()
 Application.OnTime interval, "Tijd", , False
End Sub

 

[JEC.]

Zet ze achter een workbook_open en een beforeclose event.

Of koppel ze in ieder geval aan een shape oid

 

[PeterBijns]

Dank jullie wel voor het antwoord, het werkt zoals ik het wil hebben.
Groet, Peter