UpdateClock
26.09.2002 17:20:23
martin
folgenden code habe ich verwand:
Sub UpdateClock()
UserForm1.Label5.Caption = Format(Time, "hh:mm:ss")
NextTime = Now + TimeValue("00:00:01")
Application.OnTime NextTime, "UpdateClock"
End Sub
Private Sub UserForm_Initialize()
Call FensterOhneKopf
Call Datum
Call UpdateClock
End Sub
aber es tritt ein fehler auf, folgender:
fehler beim kompilieren:
variable nicht definiert
was mach ich verkehrt?
kann mir einer helfen? es wäre schön.
gruß
martin
Anzeige