Stopuhr mit Ausgabe
23.12.2004 13:57:08
Chaos
Ich habe ein Problem,
ich habe eine Stopuhr, die schon eine Pause und Weiter Funktion drin hat und die immer die neue Zeit in eine neue Zeile schreibt aber es wird immer die letzte Zelle als Ausgangspunkt verwendet, es wäre besser wenn man eine Zelle als Ausgangspunkt verwendet die beim drücken von Start immer gleich bleibt . 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
Sub hallo()
Application.OnKey "{ENTER}", "SchreibDieZeit"
End Sub
Sub SchreibDieZeit()
Range("A1").SpecialCells(xlCellTypeLastCell).Offset(1, 0).Value = Time()
End Sub
Schon mal Danke im vorraus.