Stoppuhr in Excel

28/05/2008 - 13:52 von Andreas H. | Report spam
Zitat:

Private Sub CommandButton1_Click()
If CommandButton1.Caption = "Start" Then
Zeit = Time
Range("A1") = ""
CommandButton1.Caption = "Stop"
ZeigenZeit
Else
Range("A1") = Format(Time - Zeit, "hh:mm:ss")
CommandButton1.Caption = "Start"
StopAnzeige
End If
End Sub


und folgenden in ein Modul
Option Explicit
Public Zeit As Date
Public ET As Variant


Sub StopAnzeige()
On Error Resume Next
Application.OnTime EarliestTime:=ET, Procedure:="ZeigenZeit",
Schedule:=False
End Sub


Sub ZeigenZeit()
[A1] = Time - Zeit
ET = Now + TimeValue("00:00:01")
Application.OnTime ET, "ZeigenZeit"
End Sub


und folgenden in DieseArbeitsmappe


Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopAnzeige
End Sub


Hi, das ist genau der Comde den ich gesucht habe ;)

Wie kann ich es aber zusàtzlich realisieren, dass ich noch n Löschen
Button habe, und die Zeit nicht gelöscht wird, wenn ich erneut auf
START drücke, sondern weiterlàuft !?

Gruß

Andy
 

Lesen sie die antworten

#1 Andreas H.
29/05/2008 - 23:50 | Warnen spam
On 28 Mai, 13:52, "Andreas H." wrote:
Zitat:

Private Sub CommandButton1_Click()
If CommandButton1.Caption = "Start" Then
Zeit = Time
Range("A1") = ""
CommandButton1.Caption = "Stop"
ZeigenZeit
Else
Range("A1") = Format(Time - Zeit, "hh:mm:ss")
CommandButton1.Caption = "Start"
StopAnzeige
End If
End Sub

und folgenden in ein Modul
Option Explicit
Public Zeit As Date
Public ET As Variant

Sub StopAnzeige()
On Error Resume Next
Application.OnTime EarliestTime:=ET, Procedure:="ZeigenZeit",
Schedule:=False
End Sub

Sub ZeigenZeit()
[A1] = Time - Zeit
ET = Now + TimeValue("00:00:01")
Application.OnTime ET, "ZeigenZeit"
End Sub

und folgenden in DieseArbeitsmappe

Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopAnzeige
End Sub

Hi, das ist genau der Comde den ich gesucht habe ;)

Wie kann ich es aber zusàtzlich realisieren, dass ich noch n Löschen
Button habe, und die Zeit nicht gelöscht wird, wenn ich erneut auf
START drücke, sondern weiterlàuft !?

Gruß

Andy




Hi Crackz,
kann mir diesmal keiner helfen :(bitte !

MFG
Andreas

Ähnliche fragen