OnTime
08.03.2003 08:49:58
heinz
Ich habe, so zum Spaß, nur eine TextBox in eine UserForm gesetzt, um dort die Zeit anzuzeigen. Damit's im Sekunden-Takt aktualisiert, habe ich OnTime verwendet.
...Herr, die Not ist groß. Die Geister die ich rief, werd ich nun nicht mehr los!
Wie stelle ich dieses OnTime Ding bloß wieder ab; das rennt auch noch weiter, wenn ich schon Unload Form befohlen habe.
Soweit so gut:
Private Sub UserForm_Initialize()
zeit
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Unload UserForm1
End Sub
Sub zeit()
UserForm1.TextBox1.Value = Time
Application.OnTime Now + TimeValue("00:00:01"), "zeit"
End Sub
Sub start()
UserForm1.Show
End Sub
Wenn ich's nun wie in der Hilfe sinngemäß versuche...
Application.OnTime EarliestTime:=Now_
Procedure:="zeit", Schedule:=False
...dann klappt's nicht.
Vielen Dank im Voraus,
Heinz
Anzeige