VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Aktuelle Zeit in UserForm darstellen

Gruppe

Dialog

Bereich

Label

Thema

Aktuelle Zeit in UserForm darstellen

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

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und Label