OnTime Methode
21.11.2002 18:48:47
Konstantin
Hi, Hajo!
Danke für die schnelle Reaktion!
Bei mir klappt es immer noch nicht. Dein Bsp schon, aber(sorry, habe das Problem nicht ausführlich genug geschildert!) ich muß eine Mappe schließen, sobald kein Button in der Form 10 Minuten lang gedrückt wurde. So hatte ich bei jedem Button eingebaut:'------------------------in der Form--------------------
Private Sub UserForm_Activate()
ET=Now + TimeValue("00:10:00")
Application.OnTime ET, "schliess"
End Sub
Private Sub CommandButton_Klick()
Call countdown_new
'...Weitere Anweis.
End Sub
'------------------------------ dann im Modul--------------
Public ET as Date
Public Sub countdown_new()
Application.OnTime _
EarliestTime:=ET, Procedure:="schliess", Schedule:=False
ET = Now + TimeValue("00:10:00")
Application.OnTime ET, "schliess"
End Sub
Public Sub schliess()
ActiveWorkbook.Close = False
End Sub
Die Mappe wird geschlossen exakt nach 10 Minuten nach dem Form-Start. Wenn ich On Error Resume Next auslasse, kommt bei Application.OnTime EarliestTime:=ET,... Die Fehlermeldung.
Ein Anfängerfehler?
Gruß Konstantin