Makro Stoppen wenn Schaltfläche gedrückt wird

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Glen
Schau mal hier...
https://www.herber.de/mailing/067199h.htm
Die Vorlage muesste sich fast eins zu eins uebernehmen lassen.
Du solltest auch wie im Beispiel ein Workbook_BeforeClose Ereignis einbauen. Wenn du die Mappe schliesst, Excel aber nicht, laeuft das Makro sonst trotzdem weiter und loest deine Nachricht aus.
Ein Workbook_BeforeClose Ereignis gehoert wie beschrieben in ein Klassenmodul und das geht so... Alt + F11, links DieseArbeitsmappe doppelklicken, neues Fenster oeffnet sich, links oben Dropdown auf Workbook stellen, rechts oben auf BeforeClose.
Im Gegensatz dazu gehoert der Rest vom Code in ein sogenanntes Standardmodul. Ebenfalls mit Alt + F11 in den VBA-Editor wechseln, ueber Menu, einfuegen, Modul.
Und jetzt wirds trotzdem noch lang, kannst ja die Ohren hmmm Augen schliessen. Auf Select laesst sich relativ einfach verzichten und macht den Codeablauf fluessiger.
Mit...
Range("G8") = "b"
...und...
Range("I8").ClearContents
... erreichst du das Gleiche.
Gibt uebrigens unter Excel-FAQ im Forum ein Kapitel dazu.
Gruss
Chris

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

Hi Glen
Option Explicit
Public Const gsMacro As String = "Meldung_Anlieferung"
Public gdNextTime As Double


Sub StartClock()
gdNextTime = Now + TimeValue("00:00:05")
Application.OnTime earliesttime:=gdNextTime, procedure:=gsMacro, schedule:=True
End Sub


Sub StopClock()
On Error Resume Next
Application.OnTime earliesttime:=gdNextTime, procedure:=gsMacro, schedule:=False
End Sub


Sub Schaltfläche3_BeiKlick()
Range("G8") = "b"
Call StartClock
Range("I8").ClearContents
Range("G8").Select
End Sub


Sub Meldung_Anlieferung()
MsgBox "Die Zeit der Anlieferung ist abgelaufen", vbExclamation, "GrL informieren"
End Sub


Sub Schaltfläche15_BeiKlick()
If MsgBox("Wollen Sie wirklich alle Bedarfe löschen?", vbYesNo + vbQuestion, _
"L Ö S C H E N    ?") = vbNo Then Exit Sub
Range("G8:G20,I8:I20").ClearContents
Range("A1").Select
End Sub


Sub Schaltfläche4_BeiKlick()
Call StopClock
End Sub

Gruss
Chris

Beliebteste Forumthreads (12 Monate)

Makro Stoppen wenn Schaltfläche gedrückt wird

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro Stoppen wenn Schaltfläche gedrückt wird

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

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread