Makro "TimeSerial" unterbrechen

Forumthread: Makro "TimeSerial" unterbrechen

20.01.2004 13:00:54

Glen

Hallo Excelenten
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Makro "TimeSerial" unterbrechen

20.01.2004 13:03:31

Bert

ist doch in der Hilfe bestens erklärt, schedule auf False setzen.
Bert

Hilfe bei "TimeSerial" unterbrechen

20.01.2004 13:38:16

Glen

Ja wird wohl so sein Bert, habe jedoch keine Hilfe bei der Arbeitstelle installiert.
Mit meinem Makrorecorder Wissen komme ich hier nicht weiter.
Kann mir jemand helfen??
Gruss
Glen

AW: Hilfe bei "TimeSerial" unterbrechen

20.01.2004 13:40:22

Bert

OnTime-Methode
Siehe auch Betrifft Beispiele Zusatzinfo
Bewirkt, dass eine Prozedur zu einem bestimmten Zeitpunkt in der Zukunft (entweder zu einer bestimmten Zeit oder nachdem eine bestimmte Zeitspanne vergangen ist) ausgeführt wird.
Ausdruck.OnTime(EarliestTime, Procedure, LatestTime, Schedule)
Ausdruck Erforderlich. Ein Ausdruck, der ein Application-Objekt zurückgibt.
EarliestTime Erforderlicher Variant-Wert. Die Zeit, zu der diese Prozedur ausgeführt werden soll.
Procedure Erforderlicher String-Wert. Der Name der auszuführenden Prozedur.
LatestTime Optionaler Variant-Wert. Der späteste Zeitpunkt zum Ausführen der Prozedur. Wenn beispielsweise LatestTime auf EarliestTime + 30 festgelegt und Microsoft Excel im Zusammenhang mit EarliestTime nicht im Ready, Copy, Cut oder Find-Modus ist, da eine andere Prozedur ausgeführt wird, wartet Microsoft Excel 30 Sekunden auf das Beenden der ersten Prozedur. Wenn Microsoft Excel innerhalb von 30 Sekunden nicht im Ready-Modus ist, wird die Prozedur nicht ausgeführt. Wenn dieses Argument ausgelassen wird, wartet Microsoft Excel, bis die Prozedur ausgeführt werden kann.
Schedule Optionaler Variant-Wert. True führt eine neue OnTime-Prozedur aus. False löscht eine vorher eingestellte Prozedur. Der Standardwert ist True.
Anmerkung
Verwenden Sie Now + TimeValue(time) zum Ausführen eines Programms o.ä. nach einer bestimmten Zeit (von jetzt an gezählt). Verwenden Sie TimeValue(time) zum Ausführen eines Programms o.ä. für eine bestimmte Zeit.
Beispiel
In diesem Beispiel wird "my_Procedure" nach 15 Sekunden ausgeführt.
Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"
Im folgenden Beispiel wird "my_Procedure" um 17 Uhr ausgeführt.
Application.OnTime TimeValue("17:00:00"), "my_Procedure"
In diesem Beispiel wird die OnTime-Einstellung aus dem vorherigen Beispiel gelöscht.
Application.OnTime EarliestTime:=TimeValue("17:00:00"), _
Procedure:="my_Procedure", Schedule:=False

Nochmals Hilfe bei "TimeSerial" unterbrechen

20.01.2004 17:25:02

Glen

Hallo Leute
Zu Bert:
Hab das mal versucht zusammen zu basteln und es ging, wie solls auch anders sein, nach einigem hin und her probieren nicht. Aber danke trotzdem.
An Alle:
Kan mir hier jemand weiter helfen? das hab ich bis jetzt:


Sub Schaltfläche3_BeiKlick()
Range("G8").Select
ActiveCell.FormulaR1C1 = "b"
Application.OnTime Now + TimeValue("00:00:15"), "Meldung_Anlieferung"
Application.OnTime EarliestTime:=TimeValue("00:00:15"), _
Procedure:="Meldung_Anlieferung", Schedule:=False
Range("I8").Select
Selection.ClearContents
Range("G8").Select
End Sub

Danke und Gruss
Glen

Hab was bekommen. Dank an alle Helfer

21.01.2004 10:47:59

Glen

Gruss Glen

Beliebteste Forumthreads (12 Monate)

Forumthread: Makro "TimeSerial" unterbrechen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Makro "TimeSerial" unterbrechen

Forumthread: Makro "TimeSerial" unterbrechen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread