Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
252to256
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
252to256
252to256
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

UserForm Uhr

UserForm Uhr
09.05.2003 19:40:42
Andy
Hallo
Wie kann ich in einer UserForm eine Uhrzeit einbinden die weiterläuft.
Gruss Andreas

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: UserForm Uhr
09.05.2003 19:50:53
Nepumuk

Hallo Andreas,
in das Modul der Userform

Private Sub UserForm_Activate()
    Application.OnTime Time + TimeSerial(0, 0, 1), "Uhr"
End Sub

Private Sub UserForm_Terminate()
    On Error Resume Next
    Application.OnTime Time + TimeSerial(0, 0, 1), "Uhr", , False
End Sub

in ein normales Modul

Public Sub Uhr()
    UserForm1.Label1.Caption = Format(Time, "hh:mm:ss")
    Application.OnTime Time + TimeSerial(0, 0, 1), "Uhr"
End Sub

Gruß
Nepumuk

Anzeige
Re: UserForm Uhr
09.05.2003 21:39:57
udo

Hi , hab dir ein Beispiel an deine email geschickt

Gruß udo

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige