Stoppuhr stellt sich wieder auf 0
10.06.2008 10:50:45
Stephan
ich bräuchte mal wieder Eure geschätzte Hilfe:
Mit dem unten aufgeführten Makro läuft in Zelle D4 nach betätigen eines Start-Buttons die aktuelle Uhrzeit und zugleich beginnt in Zelle C7 eine Stoppuhr zu laufen. Wenn ich das Tabellenblatt wechsel, läuft die Stoppuhr und die Zeit im Hintergrund zwar weiter, sobald ich aber wieder auf das Blatt, wo die Zeit läuft wechsel, stellt sich die Stoppuhr auf 0 und beginnt wieder von vorne zu laufen. Was müsste ich ändern, damit die aktuelle, bisher verstrichene Zeit angezeigt wird? Vielen Dank im Voraus! Grüße, Stephan
Sub Uhrzeit1()
ThisWorkbook.Sheets("Störungen-storingen").Range("D4") = Format(Time - Zeit, "hh:mm:ss")
EZE = Now + TimeValue("00:00:01")
Application.OnTime EZE, "Uhrzeit1"
ThisWorkbook.Sheets("Störungen-storingen").Range("C7") = Range("C7") + TimeValue("00:00:01") _
_
End Sub
Anzeige