Probleme mit dem Beenden von Makros

Ich suche eine Möglichkeit ein Makro während der Ausführung auf Tastendruck einfach zu beenden.
Die ESCAPE-Taste funktioniert nicht während Msg- oder InputBox'en und STRG+PAUSE nicht immer.
Es ist schon sauspät und ich werde in der blöden Hilfe von Excel nicht fündig.
Und aufnahmebereit bin ich schon längst nicht mehr...
Naja, vieleicht habt ihr ja eine Idee oder wisst auch schon, wie das geht.
Habe schon irgendwas über die ShowModal-Eigenschaft gelesen aber nicht so richtig verstanden ob die nun das kann was ich will.
Am besten währe ja am Anfang des Makros sowas wie die On Error Anweisung die ja dann das ganze Makro überwacht und auf einen Fehler reagiert.
So etwas konnte ich aber nicht ausmachen...
Und dann währe da noch etwas:
Bei jedem Öffnen von Excel bekomme ich eine Meldung das "...diese Anwendung versucht ActiveX-Steuerelemente zu initalisieren die unsicher sein könnten..." zulassen Ja oder Nein...
Jaaaa!!! Das will ich IMMMMER!!!!
Kann man das wie das generelle Zulassen von Makros irgendwie abstellen? Die Optionen habe ich schonmal durchsucht, aber ebenfalls nichts gefunden.
Danke!!!
Gute Nacht...

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Public stoppen As Boolean Sub nahezuendlos() Dim n For n = 1 To 10000000000# If stoppen = True Then GoTo ende DoEvents Range("a1") = n Next n ende: stoppen = False End Sub Sub Makro1() ' Tastenkombination: Strg+s stoppen = True End Sub

Hallo Felix,
da unterliegst Du einem weit verbreiteten Irrtum, wenn Du glaubst, man könne bei einer InputBox nicht zwischen "Abbrechen" und "Nichts eingegeben" unterscheiden; teste doch dazu einfach mal das nachstehende Beispiel-Makro.
Das daraus eventuell resultierende "Umarbeiten von sau vielen Seiten Makro-Code" kann ich Dir allerdings nicht ersparen.


Sub EingabeBox()
Dim s As String
s = InputBox("Aufforderung:", "Titel", "Vorbelegung")
If StrPtr(s) = 0 Then
MsgBox "Sie haben ""Abbrechen"" gedrückt !" & vbCr & vbCr & _
"   Das Makro wird abgebrochen !", vbOKOnly + vbCritical, _
"Dezenter Hinweis für " & Application.UserName & ":"
Exit Sub
ElseIf s = "" Then
MsgBox "Sie haben keine Eingabe gemacht !" & vbCr & vbCr & _
"    Das Makro wird abgebrochen !", vbOKOnly + vbCritical, _
"Dezenter Hinweis für " & Application.UserName & ":"
Exit Sub
End If
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !

Beliebteste Forumthreads (12 Monate)

Probleme mit dem Beenden von Makros

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

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread