Restlaufzeit des Programms im Programm anzeigen
28.05.2006 10:04:24
KaJu
Ich habe in meinem Programm ein Zeitmacro eingebaut, der das Programm nach einer Stunde schließt.
Sub Zeitmakro()
BoZu = False
On Error Resume Next
Application.OnTime EarliestTime:=ET1, Procedure:="Zeitmakro", Schedule:=False
ET = Now + TimeValue("01:00:00")
Application.OnTime ET, "Start"
End Sub
Sub start()
ET1 = Now + TimeValue("00:01:00")
Application.OnTime ET1, "Schließen"
SetActiveWindow FindWindow("xlMain", vbNullString)
autoschließen.Show
End Sub
Sub Schließen()
Unload autoschließen
If BoZu = False Then
Workbook_Deactivate
End If
End Sub
Autoschließen.show statet eine Userform wo man das Zeitmacro neu startet und somit wieder 1 Stunde hat. Zum bestätigen hat man 1 Minute, sonst wird das Programm geschlossen.
Jetzt möchte ich gerne, das die Restlaufzeit im Programm angezeigt wird.
Idealerweise als Live-Time (Countdown), falls nicht möglich auch Minütlich aktualierbar.
Wer kann mir helfen?
MfG
KaJu
Anzeige