Stopuhr mit Ausgabe
23.12.2004 09:04:03
Chaos
Ich habe ein Problem,
ich habe eine Stopuhr, die schon eine Pause und Weiter Funktion drin hat. Hab es aber nicht geschafft die Variable Zeit bei jedem Drücken einer Taste Enter z.B. in eine neue Zeile zu Schreiben. Als Hilfe der bisherige code.
Option Explicit
Private Sub CommandButton1_Click()
UhrStart = Now
UhrLaeuft = True
Range("A1") = 0
ActiveSheet.OLEObjects("CommandButton3").Object.Caption = "Pause"
ActiveSheet.OLEObjects("CommandButton3").Visible = True
End Sub
Private Sub CommandButton2_Click()
Range("A1") = Now - UhrStart
UhrLaeuft = False
ActiveSheet.OLEObjects("CommandButton3").Visible = False
End Sub
Private Sub CommandButton3_Click()
If UhrLaeuft = True Then
Range("A1") = Now - UhrStart + Range("A1")
UhrLaeuft = False
ActiveSheet.OLEObjects("CommandButton3").Object.Caption = "Weiter"
Else
UhrStart = Now
UhrLaeuft = True
ActiveSheet.OLEObjects("CommandButton3").Object.Caption = "Pause"
End If
End Sub
Modul:
Public UhrStart As Date
Public UhrLaeuft As Boolean
Schon mal Danke im vorraus.