Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Aktuelle Zeit in UserForm darstellen

Gruppe

Label

Problem

Wie kann ich die aktuelle Zeit mit Aktualisierung in einer UserForm darstellen?

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.

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