Autoclose & Application.OnTime?

Hallo zusammen,
ich versuche eine zeitgesteuerte Prozedur beim Schließen einer Excel-Datei automatisch zu beenden. Es gibt dabei allerdings den Laufzeitfehler 1004. Weiß jemand einen Rat?


Public Sub Zeitsteuerung_ein()
Application.OnTime TimeValue("12:00:00"), "Mittagspause"
End Sub



Public Sub Zeitsteuerung_aus()

    Application.OnTime TimeValue("12:00:00"), "Mittagspause", , False

End Sub




Public Sub Mittagspause()

    MsgBox "Der Gesundheitsminister empfiehlt Ihnen eine Mittagspause"

End Sub




Sub Auto_close()

    Zeitsteuerung_aus

End Sub

Danke & Ciao,
Michael G.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Auto_open() Worksheets("Tabelle1").Activate For I = 2 To 65536 If IsEmpty(Cells(I, 1)) Then ZeitAnfang = Cells(I - 1, 3).Value ZeileAktuellNeu = I - 1 Exit For End If Next I ZeileAktuellAlt = ZeileAktuellNeu ZeitAufrufSub = Now + TimeSerial(0, 0, 5) Call Hinweis1 End Sub Sub Auto_close() On Error Resume Next Application.OnTime EarliestTime:=ZeitAufrufSub, _ Procedure:="Hinweis", Schedule:=False End Sub Sub Hinweis1() Worksheets("Tabelle1").Activate For I = 2 To 65536 If IsEmpty(Cells(I, 1)) Then ZeitAnfang = Cells(I - 1, 3).Value ZeileAktuellNeu = I - 1 Exit For End If Next I If ZeileAktuellNeu = ZeileAktuellAlt Then If Now > "28.01.2005" + ZeitAnfang + TimeSerial(0, 0, 20) Then UserForm1.Show End If End If ZeitAufrufSub = Now + TimeSerial(0, 0, 5) Application.OnTime ZeitAufrufSub, "Hinweis1" End Sub

Hi Ramses,
Danke für die Info & sorry für das "Crossposting" in spotlight.de (endlich weiß ich, was das Wort bedeutet).
Die Variable "ZeitAufrufSub" hatte ich als Public deklariert. Es war auch nicht das Problem. Es lag vielmahr daran, dass beim Schließen der Datei alle zuvor getätigten Aufrufe mit Application.OnTime entweder ausgeführt oder mit Application.OnTime ... Schedule:=False UND identischen Zeitangaben (!) beendet sein müssen. Die Kunst dabei ist, erstens alle diese Aufrufe ausfindig zu machen und zweitens, zu verhindern, dass Excel versucht, eine Prozedur in der Zeitschleife zu beenden, obwohl diese schon abgearbeitet wurde. Dann gibt es den Laufzeitfehler 1004. Ich schaue mal, ob ich den Artikel dazu gerade noch wiederfinde.
Was "VBA-Gut" angeht nehme ich alles zurück & behaupte das Gegenteil ;-). Deshalb auch gleich die Frage wie ich Deinen Hinweis bezüglich
Auto_Open gehört in Workbook_Open
Auto_Close gehört in Workbook_BeforeClose
verstehen soll?
Danke & Grüße & Ciao,
Michael G.

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

54 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Autoclose & Application.OnTime?

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

54 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread