Folgender Code richtet Meldungen nach bestimmtem Zeitablauf ein.
Sub Einrichten() 'Im Blattmodul
Application.OnTime Now + TimeSerial(0, 0, 3), "Meldung1"
Application.OnTime Now + TimeSerial(0, 0, 20), "Meldung2"
Application.OnTime Now + TimeSerial(0, 0, 30), "Meldung3"
End Sub
Sub Meldung1() 'Im Modul 1
MsgBox "hallo 1"
End Sub
Sub Meldung2() 'Im Modul 1
MsgBox "hallo 2"
End Sub
Sub Meldung3() 'Im Modul 1
MsgBox "hallo 3"
End Sub
Kann man, und wenn ja, wie, feststellen, welche OnTime-Aufrufe noch ausstehen?Kann man, und wenn ja, wie, einen OnTime-Aufruf vorzeitig löschen?
Würde mich über Eure Hilfe sehr freuen.
LG,
Franz