Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
432to436
432to436
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA -Makro mittendrin beenden

Forumthread: VBA -Makro mittendrin beenden

VBA -Makro mittendrin beenden
26.05.2004 12:59:57
alex
Hallo!
Mit welchem befehl kann ich ein ausgeführtes Makro vorzeitig beenden.
Habe eine Fehlerabfangroutine (if) und brauche für den fall eines fehler einen befehl, der das weitere ausführen abbricht. Die abfangroutine ist in einer untersub, dashalb reicht es nicht einfach die sub zu beenden.
danke
der alex
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA -Makro mittendrin beenden
26.05.2004 13:01:27
Remo
Probiers mal mit
Exit Sub
Gruss Remo
AW: VBA -Makro mittendrin beenden
26.05.2004 13:04:34
alex
ja gerade das reicht nicht aus, da ich die sub mit der fehlerroutine in einer anderen sub aufrufe und mit diesem befehl ja dann nur die untersub beendet wird. oder?
gruß
alex
AW: VBA -Makro mittendrin beenden
26.05.2004 13:04:23
Uduuh
Hallo,
kannst du nicht ein paar Codeschnipsel posten? Ohne deinen Ablauf ist die Frage nur sehr ungenau zu beantworten. Und meine Glaskugel ist gerade im Pfandhaus.;-))
Gruß aus'm Pott
Udo
Anzeige
AW: VBA -Makro mittendrin beenden
26.05.2004 13:08:29
alex 

Sub oeffnen(Pfad As String, Datei As String)
On Error Resume Next
Workbooks.Open (Pfad & Datei)
If Err.Number > 0 Then
MsgBox ("Dateiname oder Pfad kann nicht gefunden werden.")
'>>>>> an dieser stelle soll sämtliche code-ausführung beendet werden
End If
End Sub

diese 

Sub wird aufgerufen durch eine andere 


Sub und kehrt nach beendigunig von "oeffnen" zu dieser zurück. auch diese muss im falle eines fehlers beendet werden...
danke!
der alex
Anzeige
AW: VBA -Makro mittendrin beenden
26.05.2004 13:16:07
Uduuh
Hallo,
1. deklariere eine Public-Variable: Public bolError as Boolean (in einem Modul, außerhalb einer Prozedur)
2. im Falle des Fehlers setzt du sie auf True: bolError=True
3. hinter den Aufruf von Sub oeffnen setzt du: If bolError=true Then Exit Sub.
Gruß aus'm Pott
Udo
http://www.excelerator.de
Anzeige
AW: VBA -Makro mittendrin beenden
26.05.2004 13:19:49
Matthias G
Hallo Alex,
es geht auch ohne Public-Variable:

Sub sub1()
Dim Fehler As Boolean
Oeffnen "C:\test\", "test.xls", Fehler
If Fehler Then Exit Sub
MsgBox "Kein Fehler"
' weiter im Text
End Sub



Sub Oeffnen(Pfad As String, Datei As String, Fehler As Boolean)
Fehler = False
On Error Resume Next
Workbooks.Open (Pfad & Datei)
If Err.Number > 0 Then
MsgBox ("Dateiname oder Pfad kann nicht gefunden werden.")
Fehler = True
End If
End Sub

Gruß Matthias
Anzeige
AW: VBA -Makro mittendrin beenden
26.05.2004 13:21:36
WernerB.
Hallo Alex,
mit dem Befehlswort "End" werden alle laufenden Makros beendet/abgebrochen.
Viel Erfolg wünscht
WernerB.
;

Forumthreads zu verwandten Themen

Makro abbrechen, wenn ....
WalterK

Hallo,
Ich möchten in meinen Code einen Abbruch einbauen, wenn neben der aktiven noch andere Excel-Dateien offen sind.
Es soll dann der Hinweis kommen, dass "Der Code abgebrochen wird und zuerst die anderen Excel-Dateien beendet werden sollen!".
Danke für Eure Hilfe und
Servus,...
05.06.2011 17:58:16
Thread-ID: 1217358
11 Beiträge
Makro abbrechen, wenn ... NEU
WalterK

Hallo,
ich hatte mein Vorhaben eigentlich schon aufgegeben (hier mein 1. Versuch https://www.herber.de/forum/archiv/1216to1220/t1217358.htm), habe dann aber doch weiter gegoogelt und habe die Lösung schon fast erreicht.
Ich möchte erreichen, dass der Beispielcode "Sortieren" mit einer M...
06.06.2011 22:55:44
Thread-ID: 1217478
5 Beiträge
VBA Code vorzeitig beenden
WalterK

Hallo
benötige nochmals Hilfe bei einem Codeteil:
Dim ws As Worksheet
Dim ZELLE As Range
Dim wsNamen
Set wsNamen = CreateObject("Scripting.Dictionary")
For Each ws In ThisWorkbook.Worksheets
wsNamen.Add ws.Name, ws.Name
Next
For Each ZELLE In Range("1.Einstel...
23.03.2013 17:24:44
Thread-ID: 1305682
13 Beiträge
VBA Makro abbrechen, Excel automatisch schließen
Jan

Hallo zusammen,
folgende Situation:
Der Benutzer gibt Daten in der Vorlage.xlsm ein und startet daraus ein Makro. Nun greift das Makro mit sverweis auf eine Quelldatei (Excel) zu (Datei wirdgeöffnet, Daten werden per sverweis zugeordnet, Formeln durch Werte ersetzt und die Datei wieder...
07.12.2013 01:23:18
Thread-ID: 1341648
3 Beiträge
Makro abbrechen wenn....
Spenski

huhu ich mal wieder
wie muss ich das schreiben das wenn Private Sub CommandButton1_Click() Select Case -1 * OptionButton1.Value & -1 * OptionButton2.Value & -1 * OptionButton9.Value Case "000" MsgBox "Bitte Schicht wählen" End Select zutrifft (also die meldung kommt) der rest des m...
31.03.2014 21:21:19
Thread-ID: 1355596
13 Beiträge
Anzeige
VBA Makro: Spalten ausblenden wenn Bereich = "0 x"
hual

Hallo zusammen!
Ich bin mit VBA wenig bis gar nicht vertraut und hätte gerne ein Makro welches mir die Spalten F:O ab Zeile 8 durchsucht und wenn dort nur "0" UND "0 x" vorkommen, sollte diese Spalte ausgeblendet werden.
ich hab dazu schon was in die Richtung gefunden, etwas editiert ab...
22.09.2014 15:18:58
Thread-ID: 1382850
6 Beiträge
Zählenwenn direkt?,- Leitfaden Makrorekorder->VBA
urs

Guten Abend
ich habe heute versucht dieses Zählenwenn mit Direktadressierung zum Laufenzu bringen. Doch ohne Erfolg. Stelle mir vor, dass ein Freak den Fehler sofort erkennt.

Range("L2").Select
ActiveCell.FormulaR1C1 = "=IF(A2grösser0,COUNTIF($K$2:K2,K2),"""")"

Eine Fr...
05.10.2014 22:04:46
Thread-ID: 1384958
3 Beiträge
VBA Excel Makro WENN Funktion mit ChrW 10004
braun

Guten Abend,
und zwar habe ich eine Excel Mappe mit zwei verschiedenen Tabellenreitern.
In dem ersten Tabellenreiter ist ein Makro abgelegt, dass mir bei nacheinanderfolgendem Klicken einer Zelle (A3) einen Haken (ChrW Unicode), Kreuz (auch über Unicode) oder NA anzeigt.
Das klappt...
28.01.2015 19:04:39
Thread-ID: 1405856
14 Beiträge
VBA Makro (Mit Copy Befehl)
chris

Hallo Leute!
Ich habe folgendes Problem. Ich lasse via Makro/VBA eine txt Datei formatiert einlesen und möchte jetzt gerne die Eingabe so umformatieren das die Anordnung sich verändert und ggf. Dinge wegfallen. Das ist ja erstmal nicht schwer via Makro. Mein Problem ist, dass ich nicht weiß...
13.02.2015 10:56:22
Thread-ID: 1409264
4 Beiträge
Anzeige
Makro abbrechen, wenn Dateiname...
Xico
Hallo Forumsteilnehmer,

lautet der Dateiname "Vorlage Testabteilung.xls", so soll mein Makro dann abgebrochen werden, wenn das Wort "Vorlage" noch als Dateiname besteht (d.h. wenn die Datei "Testabteilung JUN03.xls" heisst, soll Makro ausgeführt werden).

Folgendes funktioniert nich...
11.12.2003 14:58:07
Thread-ID: 350816
3 Beiträge
vba code mit IF geht aber führt befehl nicht aus
dirk

hallo excelperten
könntet ihr mal schauen warum
bei eingaben von wörtern in mein Textfeld die Zelle in die der Text übertragen
wird nicht zum Wert (0) wird?

der code steht in der datei!

https://www.herber.de/bbs/user/2536.xls

danke eucht
heute schwitze ich s...
18.12.2003 22:11:04
Thread-ID: 354199
12 Beiträge
VBA-Programm beenden
Sophie

Hallo zusammen,
habe mir ein Programm erstellt, daß in regelmäßigen Abschnitten (1 Minute) eine Aktualisierung vornimmt. Aufruf wie folgt:
Application.OnTime Time + TimeSerial(0,1,0), "Start"
Nun habe ich festgestellt, daß es gar nicht so einfach ist, dieses zu beenden. Wie kann man...
18.03.2007 17:19:00
Thread-ID: 855271
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

VBA-Makro mittendrin beenden

Schritt-für-Schritt-Anleitung

Um ein Excel VBA Makro vorzeitig zu beenden, gibt es verschiedene Ansätze. Hier ist eine allgemeine Schritt-für-Schritt-Anleitung:

  1. Fehler abfangen: Verwende die Fehlerbehandlungsroutine On Error Resume Next, um Fehler zu erkennen.
  2. Variable deklarieren: Erstelle eine Boolean-Variable, um den Fehlerstatus zu speichern.
  3. Fehler setzen: Setze die Variable auf True, wenn ein Fehler auftritt.
  4. Abbruchbefehl einfügen: Verwende If Fehler Then Exit Sub, um das Makro abzubrechen.

Ein einfaches Beispiel könnte so aussehen:

Sub Haupt()
    Dim Fehler As Boolean
    Oeffnen "C:\test\", "test.xls", Fehler
    If Fehler Then Exit Sub
    MsgBox "Kein Fehler aufgetreten"
End Sub

Sub Oeffnen(Pfad As String, Datei As String, Fehler As Boolean)
    Fehler = False
    On Error Resume Next
    Workbooks.Open (Pfad & Datei)
    If Err.Number > 0 Then
        MsgBox ("Dateiname oder Pfad kann nicht gefunden werden.")
        Fehler = True
    End If
End Sub

Häufige Fehler und Lösungen

  1. Das Makro wird nicht beendet: Wenn du Exit Sub verwendest, aber das Makro nicht stoppt, stelle sicher, dass du die Abbruchbedingung richtig gesetzt hast. Überprüfe, ob die Fehlerbehandlungsroutine korrekt implementiert ist.

  2. Unzureichende Fehlerbehandlung: Wenn du On Error Resume Next verwendest, stelle sicher, dass du danach einen klaren Abbruchbefehl einfügt, um unerwünschte Folgewirkungen zu vermeiden.

  3. Nicht die richtige Sub beenden: Wenn du Exit Sub in einer Unterroutine nutzt, die von einer anderen Sub aufgerufen wird, wird nur die Unterroutine beendet. Verwende stattdessen eine globale Variable, um die Hauptroutine zu informieren.

Alternative Methoden

  • Public-Variable verwenden: Deklariere eine Public-Variable, die den Fehlerstatus speichert. Nutze diese Variable dann in der aufrufenden Sub, um die Ausführung zu steuern.

  • End Befehl: Mit dem Befehl End kannst du alle laufenden Makros abbrechen. Dies ist jedoch ein drastischer Schritt und sollte mit Vorsicht verwendet werden.

  • Tastenkombinationen: Verwende die Tastenkombination Strg + Pause (Pause-Taste), um die Ausführung des Makros sofort zu stoppen, wenn es in einer Endlosschleife feststeckt.

Praktische Beispiele

Hier sind einige praktische Beispiele zur Verwendung der Abbruchbefehle in VBA:

  1. Abbrechen bei Fehlern:

    Sub Beispiel()
    On Error Resume Next
    ' Code, der einen Fehler verursachen könnte
    If Err.Number <> 0 Then
        MsgBox "Fehler aufgetreten. Abbruch."
        Exit Sub
    End If
End Sub

  2. Nutzung von End:

    Sub MakroBeenden()
    ' Irgendwelche Logik hier
    If FehlerAufgetreten Then
        MsgBox "Makro wird beendet."
        End ' Alle Makros beenden
    End If
End Sub

Tipps für Profis

  • Verwende On Error GoTo anstelle von On Error Resume Next, um eine präzisere Fehlerbehandlung zu ermöglichen.
  • Erstelle eine zentrale Fehlerbehandlungsroutine, die alle Fehler an einem Ort verwaltet, um den Code übersichtlicher zu gestalten.
  • Nutze Kommentare, um den Code verständlicher zu machen, besonders an Stellen, an denen du das Makro beendest.

FAQ: Häufige Fragen

1. Wie kann ich ein Excel VBA Makro während der Ausführung abbrechen?
Du kannst das Makro mit der Kombination Strg + Pause abbrechen oder einen Abbruchbefehl wie Exit Sub in deinen Code einfügen.

2. Was ist der Unterschied zwischen Exit Sub und End?
Exit Sub beendet nur die aktuelle Subroutine, während End alle laufenden Makros abbricht. Verwende End mit Vorsicht, da es alle Variablen und den aktuellen Status zurücksetzt.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige