Zeit in Userform
08.10.2006 22:35:22
frank
ich möchte in meiner UF die aktuelle Uhrzeit im Sekundentakt anzeigen lassen.
Hierfür habe ich mir folgendes überlegt.
Ich erstelle ein label nenne es lblZeit und füge folgenden Code in ein Modul ein:
Public NextTime As Date
Sub UpdateClock()
UserForm1.lblZeit.Caption = Format(Time, "hh:mm:ss")
NextTime = Now + TimeValue("00:00:01")
UserForm1.Repaint
Application.OnTime NextTime, "UpdateClock"
End Sub
In der UF habe ich folgendes plaziert
Sub UserForm_Initialize()
call UpdateClock
End Sub
Zu guter letzt soll die Geschichte auch wieder beendet werden.
In der UF gibt es einen Button zum Beenden.
Sub AktuelleMappeSchließen()
Dim msg As String, titel As String, reply As Byte
titel = "Hallo Christine"
msg = "Soll die aktuelle Mappe ebenfalls gespeichert und geschlossen werden?"
reply = MsgBox(msg, 36, titel)
If reply = vbYes Then
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.OnTimenextTime , "UpdateClock", , False
Unload Me
End If
End Sub
Die Zeit wird optimal angezeigt. Nur beenden kann ich die Geschichte nicht. Wenn ich die UF oder die ganze Mappe schließen will wird die Mappe wieder aufgerufen?
Sieht jemand den fehler?
Gruß Frank
Anzeige