Lopende datum en tijd

[jvrooij]

Ik gebruik in excel een lopende klok, die werkt prima maar als er een datum aan te pas komt lukt het me niet

kan iemand zeggen hoe ik behalve de tijd ook de datum laat mee lopen? Ik heb de VBA code voor de tijd hierbij staan

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

 

[tilpi]

Deze regel even vervangen

Worksheets(1).Range("A1") = Format(Time, "hh:mm:ss") & " " & Format(Date, "dd:mm:yyyy")

Mvg

Piet

 

[jvrooij]

yoooo bedankt, werkt als een droom