UserForm Uhr

Forumthread: UserForm Uhr

UserForm Uhr

09.05.2003 21: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

Re: UserForm Uhr

09.05.2003 21:50:53

Nepumuk
Re: UserForm Uhr

09.05.2003 23:39:57

udo

Re: UserForm Uhr

09.05.2003 21: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

Forumthread: UserForm Uhr

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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread