kennt jemand eine Möglichkeit, mittels VBA eine möglichts genaue
Stoppuhr nachzubilden.
Meine Wunscheckdaten sind:
Auflösung 1/10 Sekunden.
Bereich: bis 1 Std.
Gruß Fritz.
P.S. Ein großes Lob an dieses Forum und die Teilnehmer !!
Gruß Fritz.
P.S. Ein großes Lob an dieses Forum und die Teilnehmer !!
gruss
geri
Private Sub Workbook_Open()
Zeitmakro
Zeit = Time
Start = True
End Sub
und in ein Modul
Public Zeit As Date
Public Start As Boolean
Sub Zeitmakro()
Application.OnTime Now + TimeValue("00:00:01"), "Zielmakro"
End Sub
Sub Zielmakro()
Range("A1").Value = Format(Time, "hh:mm:ss")
Range("A2").Value = Format(Time - Zeit, "hh:mm:ss")
If Start = True Then Call Zeitmakro
End Sub
Zweite Lösung
Du musst in der VBA-Umgebung mit der rechten Maustaste auf dein Projekt klicken und ein Modul eifuegen. Schreib die Declare Anweisungen da rein und dann:
sub start ()
TIMEINIT
end sub
sub beenden ()
sheets("Tabelle1").cells(1,1) =TIMEREAD
end sub
Dann schreibts du in den Code der Tasten nur noch
start und beenden!
mfg Jörg