....OnTime Now + TimeValue -> bei Schließe
18.06.2004 11:40:24
M.
als Anfänger haben ich eine Frage zum Beenden eines Schedule-Aufrufes:
Code im Modul1:
Sub suchen()
'Öffne *.html
'suche Wert
'wenn Wert da, dann drucke und schließe Workbook
Application.OnTime Now + TimeValue("00:00:30"), "suchen"
End Sub
Code in DieseArbeitsmappe:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime Now + TimeValue("00:00:30"), Procedure:="suchen", _ Schedule:=False
End Sub
Da noch andere Excel-Dateien offen sind, soll nur diese eine Datei geschlossen werden - aber auch mit Application.xxx erhalte ich eine Fehlermeldung.
Könnt Ihr mir bitte weiterhelfen, danke schon mal.
M. Höppner
Anzeige