Wie OnTime() abbrechen?

[Frank Adler]

Hi!

Wie kann ich ein einmal gesetztes OnTime() wieder stornieren?

Z.B.:
Ich möchte, dass dieser Auftrag, das Sub Ticker in einer Sec. aufzurufen
gecancelt wird, wenn eine andere Mappe aktiviert wird
(Workbook->Deactivate?) oder ich das Workbook schließe (BeforeClose?)!

Application.OnTime Now + TimeValue("00:00:01"), "Ticker"

Vielen Dank für die Hilfe!

Frank

[Frank Arendt-Theilen]

Hallo Frank,
als Beispiel:

Dim letzter_Timer As Date

Sub TimerStarten()
letzter_Timer = Now + TimeValue("00:00:15")
Application.OnTime EarliestTime:=letzter_Timer, _
Procedure:="MakroAction"
End Sub

Sub TimerBeenden()
Application.OnTime EarliestTime:=letzter_Timer, _
Procedure:="MakroAction", Schedule:=False
End Sub

Sub MakroAction()
letzter_Timer = Now + TimeValue("00:00:15")
Application.OnTime EarliestTime:=letzter_Timer, _
Procedure:="MakroAction"
'Deine Aktion(en)
End Sub

Benutze das Worksheet-Activate-Ereignis um das Makro TimerBeenden
ablaufen zu lassen.

MfG Frank
_____________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
E-Mail: Thei...@t-online.de, Homepage: www.xl-faq.de