Gestoppte Zeit in Zelle Spalte schreiben
14.11.2003 15:53:54
Andrea
ICH BRAUCHE EURE HILFE
unteres Makro zeigt fortlaufende Zeit (Start bei 0)in StatusBar an,
es besteht die Möglichkeit für Stopp, feststellen u. erneuter Start.
Wäre es möglich, dass bei Klick auf "updateclock" die momentane Zeit
in A2 geschrieben wird, bei erneuten Klick in A3, ..A...An geschrieben wird.
Besten Dank im voraus
Andrea
Option Explicit
Public NextTime As Date
Public Zeit As Date
Sub Start()
Zeit = Time
Updateclock
End Sub
Sub Updateclock()
Worksheets("Tabelle1").Range("A1").Calculate
Application.StatusBar = "Zeit: " & Format(Time - Zeit, "hh:mm:ss")
NextTime = Now + TimeValue("00:00:01")
Application.OnTime NextTime, "Updateclock"
End Sub
Sub StopClock()
Application.OnTime NextTime, "Updateclock", , False
Application.StatusBar = False
End Sub