Stoppuhr
17.06.2008 13:42:49
Stephan
ich habe folgendes Problem:
mit unten aufgeführtem Code lasse ich eine Stoppuhr laufen. Wie müsste der Code unter "Sub StopAnzeige1()" aussehen, wenn nach einer bestimmten Zeitspanne (z. B. 2 Std.) die Uhr _
automatisch anhalten soll? Müsste ich da mit "Application.OnTime Now + TimeValue= ("02:00:00"), Exit Sub" arbeiten?
Vielen Dank im Voraus! Gruß, Stephan
Sub Uhrzeit1()
ThisWorkbook.Sheets("Tabelle1").Range("D4") = Format(Time - Zeit, "hh:mm:ss")
EZE = Now + TimeValue("00:00:01")
Application.OnTime EZE, "Uhrzeit1"
ThisWorkbook.Sheets("Tabelle1").Range("C7") = ThisWorkbook.Sheets("Tabelle1").Range("C7") + _
TimeValue("00:00:01")
End Sub
Sub StopAnzeige1()
On Error Resume Next
Application.OnTime EarliestTime:=EZE, Procedure:="Uhrzeit1", Schedule:=False
ThisWorkbook.Sheets("Tabelle1").Range("D7") = ThisWorkbook.Sheets("Tabelle1").Range("D7") + _
1
End Sub