Makro "TimeSerial" unterbrechen
20.01.2004 13:00:54
Glen
Ich habe folgendes Makro, dass 15 Minuten nachdem ich die Schaltfläche betätigt habe eine MsgBox (Zeit ist abgelaufen) ausgibt. Nun kann es aber sein, dass ich eine zweite Schaltfläche (Stop)innerhalb dieser 15 Minuten betätigen muss.
Wie kann ich nun erreichen, dass das Makro unterbrochen wird und die MsgBox dann nicht erscheint?
Das Makro:
Sub Schaltfläche3_BeiKlick()
Range("G8").Select
ActiveCell.FormulaR1C1 = "b"
Application.OnTime Now + TimeSerial(0, 15, 0), "Meldung_Anlieferung"
Range("I8").Select
Selection.ClearContents
Range("G8").Select
End Sub
Sub Meldung_Anlieferung()
MsgBox "Die Zeit der Anlieferung ist abgelaufen", vbExclamation, "GrL informieren"
End Sub
besten Dank im voraus für eure Hilfe.
Gruss Glen