Dear Group ive got this VBA code
Public Vent As Double
Sub StartTid()
On Error Resume Next
Vent = Now + TimeSerial(0, 0, 1)
Application.OnTime Vent, "StartTid", , True
Range("A1").Value = Format(Time, "hh:mm:ss")
End Sub
Kode for stop ur er:
Sub StopTid()
On Error Resume Next...