HERBERS Excel-Forum - die Beispiele

Thema: Aktuelle Zeit in UserForm darstellen

Home

Gruppe

Dialog

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

Label-Caption ändern In Userform Label bei Eingabe ändern
Timer in Label xlDialogInsertHyperlink.show
Label abdunkeln/ausblenden USERFORM showmodal Label fehlt
Arbeitmappen über Dialogfeld zusammen fassen Label-Positionierung
Label mit Daten aus anderer Datei befüllen 5.0 Dialog
Speichern unter Dialog in Word aufrufen inkl. Pfad Blattregistername in UserformLabel
Wenn in Zellen A steht Label färben. Druckerdialog
Dateityp im "Speichern unter"-Dialog vorgeben Makro stoppen, wenn Excel-Dialog?
Label in Blatt farblich ändern xlDialogOpen anpassen
Klick in definierten Rangebereich startet Dialog label in UserForm mit Zelleninhalt füllen
xlDialogOpen bei Excel 2007 funzt nicht Schleife für Labels
FileDialog inkl. Anklicken von Desktop, Eigene D. Label Caption zuweisen & Bild in Userform einfügen
Label Visible Grösse Dialogfenster der InputBox
Abstand zwischen den Labels Ungewollter Zeilenumbruch bei Chart Labeler
label caption Dialogfeld unterdrücken
Fehler bei VBA-Zugriff auf Datalabel-Eigenschaften Dialog "permanently delete sheets" unterbinden
Format-Dialog funktioniert nicht mehr Dialog "Verknüpfung aktualisieren"
Ordnerdialog und Dateidialog Ordnerdialog und dateidialog
Ordnerdialog und Dateidialog Filedialog
Herber/Beispiele/Dialoge/Checkbox/137601 Bilder bei Click im Dialogfeld
Suchdialog über VBA aufrufen mit Wert aus Combobox Dialog öffnen
Diagramm als Grafik mit Speicherdialog exportieren Label in abhängigkeit einer combobox
Dialogfenster zum kopieren Chart mit Label und Textfeld
FileDialog-Objekt unter O2k Abrage von Dialogfeldargumenten
Format Label Seitenrand im Label einrichten (VBA)