Gruppe
Dialog
Problem
Wie kann ich die aktuelle Zeit mit Aktualisierung in einer UserForm darstellen?
StandardModule: modMain
Public NextTime As Date
Sub UpdateClock()
frmZeit.lblZeit.Caption = Format(Time, "hh:mm:ss")
NextTime = Now + TimeValue("00:00:01")
frmZeit.Repaint
Application.OnTime NextTime, "UpdateClock"
End Sub
Sub CallForm()
frmZeit.Show
End Sub
ClassModule: frmZeit
Private Sub cmdWeiter_Click()
Application.OnTime NextTime, "UpdateClock", , False
Unload Me
End Sub
Private Sub UserForm_Initialize()
Call UpdateClock
End Sub