Probleme bei OnTime - Funktion
18.02.2009 14:00:00
Nik
Ich kämpfe zur Zeit mit folgendem Problem.
Ich habe ein label auf einer UserForm, dass Datum & Uhrzeit aktualisiert (10 Sekunden-Takt)
Nun habe ich das Problem , dass (wenn die Userform beendet ist und ich im vba-code weiterschreiben will),
alle 10 Sekunden eine kleine Sanduhr erscheint und das programmieren erschwert ist.
Folgender Code zum aufrufen:
Sub clock
option Explicit
public zeitneu as date
Sub clock
zeitneu = Now + timevalue("00:00:10")
application.ontime zeitneu, "clock"
End Sub
zum Beenden
Sub clockstop()
application.ontime ezitneu, "clock", , False
End Sub
Könnt ihr mir da weiterhelfen? Danke im vorraus
NIK