Stop Watch

[Hjemmet]

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
Application.OnTime Vent, "StartTid", , False
End Sub

This code Works Ok But i need a Funktion
when Time is starte the time Was Copy to B1.
When Time is Stop the time was Copy to B2
and then the Used Time should be in B3 (B2 - B1)

Ive have being searching on google but Did'n find any clue to figure it out

Hope it is enough info

Your regards form me

 

[Leith Ross]

Hello Hjemmet,

Try this...

Public Vent As Double


Sub StartTid()
        On Error Resume Next
        Vent = Now + TimeSerial(0, 0, 1)
        Application.OnTime Vent, "StartTid", , True
        Range("B1").Value = Format(Time, "hh:mm:ss")
End Sub


Sub StopTid()
        On Error Resume Next
        Application.OnTime Vent, "StartTid", , False
        Range("B2").Value = Format(Time, "hh:mm:ss")
        Range("B3").Formula = "=B2-B1"
End Sub

 

[Hjemmet]

Thanks It works

Youre Regards