Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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
572to576
572to576
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

On Error funktioniert nur einmal

Forumthread: On Error funktioniert nur einmal

On Error funktioniert nur einmal
22.02.2005 13:39:45
Werner
Hallo,
ich verwende zum Abfangen von Fehlern die Anweisung "On Error GoTo Bei_Fehler".
Ich habe zum Testen absichtlich einen Fehler eingebaut (unverträgliche Typen), dann springt Excel auch zu Bei_Fehler.
Aber sobald der nächste Fehler kommt, bricht Excel mit der Meldung "Typen unverträglich (Beenden oder Debuggen)" ab!
Ich habe bei Bei_Fehler auch Err.Clear verwendet.
Warum geht On Error nur das 1.Mal ?
Danke!
Werner.
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: On Error funktioniert nur einmal
22.02.2005 13:51:30
Anton
Servus Werner,
versuch's mal mit "option exclicit"
Hat mir bei ähnlicher Situation gut geholfen.
(Aber was erzähle ich einem VBA-Könner....)
Gruss
Anton
AW: On Error funktioniert nur einmal
22.02.2005 13:56:46
Werner
Hallo Anton!
Das Option Explicit hab ich immer eingebaut!
AW: On Error funktioniert nur einmal
EtoPHG
Hallo Anton,
Steht in Deiner Routine ein Resume Next ? oder was.
Sonst poste mal den Code/Blatt
Gruss Hansueli
Anzeige
AW: On Error funktioniert nur einmal
22.02.2005 14:08:43
Werner
Hallo Hansueli,
nein, aber ich verwende das in einer Do While-Loop-Schleife (beim Einlesen einer Datei):
Do While EOF(1)
On Error GoTo Bei_Fehler
Line Input #1, textzeile
(hier lese ich die Felder ein, und verwende zum Fehlertest extra falsche Typen,
also String statt Integer, damit er zu Bei_Fehler springt)
Bei_Fehler:
Err.Clear
MsgBox ...
Loop
Gruß Werner.
Anzeige
AW: On Error funktioniert nur einmal
Klausi
Hi Werner,
Setze man On Error GoTo 0
vor das On Error Goto Bei_Fehler
Ich habe es nicht ausprobiert, muesste aber klappen.
Was definitiv klappt ist:
Err.Clear
On Error Resume Next ' to catch/avoid an mysterious type mismatch error
...
Dein Einlesen
...
If Err.Number Then
Sh.Range("N" & CStr(i)).NoteText "Error while calculating"
End If
Hat zumindest bei mir geklappt.
Ciao
Klausi
Anzeige
AW: On Error funktioniert nur einmal
EtoPHG
Hallo Werner,
Das funktioniert anders

Sub x()
On Error GoTo Bei_Fehler
While
Deine CodeZeilen
Loop
Exit sub
Bei_Fehler:
Msgbox ...
Err.Clear
Resume Next
End Sub

Gruss Hansueli
AW: On Error funktioniert nur einmal
22.02.2005 15:36:12
Werner
Hallo Klausi & Hansueli,
Danke für Eure Antworten!
Mit Resume hat es jetzt funktioniert!
Anzeige
;

Forumthreads zu verwandten Themen

On Error GoTo ErrorHandler
Heinz

Hallo Leute
Habe unteres Makro von " Timo " erhalten...besten Dank
Nun habe ich "On Error GoTo ErrorHandler" selbst eingebaut,aber es funkt. nicht so richtig, läuft wenn kein Fehler nicht weiter.
Könntet ihr mir bitte nochmals helfen ?
Danke Heinz
Option Explicit
Dim Gel...
23.12.2008 18:27:00
Thread-ID: 1035039
14 Beiträge
On error 10 sekunden pause and resume
MBorn

Hallo,
weiß jemand, wie man bei einer Fehlermeldung (Fehlermeldung Laufzeitfehler 1004)
eine 10 sekündige Pause macht und dann Resume?
Gruß aus Berlin,
Born
25.01.2009 20:51:00
Thread-ID: 1043679
4 Beiträge
Anzeige
VBA Resume vier mal, dann Resume next
MBorn

Hallöle,
gibt es eigentlich sowas wie in der Überschrift beschrieben:
Resume 4 times: versuche das gleiche vier mal
Wenn es 4 x nicht klappt dann
Resume next: mach weiter
Ich hab noch nichts dazu gefunden, ihr vielleicht?
Danke,
Born
31.01.2009 16:52:00
Thread-ID: 1045686
6 Beiträge
On Error resume next
Dirk

Hallo zusammen,
habe Probleme mit dem Befehl on Error resume next. gilt dies nur für den nächsten Befehl, oder dann den rest der Prozedur? Kann ich die Fehlermeldungen wieder einschlten?
Mein Wissen langt nicht dafür :-)
03.02.2009 17:52:00
Thread-ID: 1046737
3 Beiträge
Anzeige
Excel4Makro - on error resume next
Michael

Hallo allerseits,
ich habe hier eine historisch gewachsenes sehr sehr umfangreiche Tabelle mit einer Mischung aus Excel4Makros und VBA.
Da liegt meine Problem. Ich suche den Befehl "on error resume next" also "fehler überspringen" für Excel4Makros. Kann mir da jemand helfen?
LG
...
16.12.2009 08:42:38
Thread-ID: 1124248
2 Beiträge
On Error Resume ohne Funktion an einem PC
Günter

Hallo Zusammen,
ich habe eine Fehler bei der Anwendung von "On Error Resume Next".
Hier die Funktion in der is es einsetze:
Public Function shape_Exists(Blatt As Object, shpName As String) As Boolean Dim Bild As Shape On Error Resume Next Set Bild = Blatt.Shapes(shpName) shape_Exi...
05.07.2010 15:01:05
Thread-ID: 1165466
8 Beiträge
OptionButtons per VBA: Automation Error
Sven

Hallo liebe Herber-Gemeinde,
ich hab grad das Problem, dass ich in einer langen Liste in einem Arbeitsblatt Optionbuttons _ per VBA hinzufügen möchte. Dazu benutze ich folgenden Code: With ActiveSheet For i = 2 To ende .OLEObjects.Add(ClassType:="Forms.OptionButton.1", Link:=False, Displa...
20.07.2010 19:50:33
Thread-ID: 1167914
3 Beiträge
Anzeige
VBA: deutsche OK - englische Version: Error 13
Dominik

Folgeproblem:In einem Arbeitsblatt, erstellt in Excel 2000, kann in einer Zelle die Zeit ohne ":" eingegeben werden. Der ":" wird durch folgendes Makro ersetzt:Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Row 20 Or Target.Column 9 Then Exit Sub
FormatTime (Target....
03.05.2002 12:58:38
Thread-ID: 118198
4 Beiträge
On Error Goto bleibt hängen
Jemp

Hallo Freunde
Ich habe eine Datei aus der ich jeden Montat verschiedene Zellen in eine separate Datei kopieren möchte und diese Datei wird dann gespeichert.
Weil mehrer Dateien auf diese Zieldatei zurückgreifen und die Datei ggfs schon erstellt oder offen ist muss das überprüft werden.<...
10.09.2010 10:03:54
Thread-ID: 1176789
4 Beiträge
VBA Abfrage on error - nur 1 mal OK
chris

Hallo VBA Experten,
ich muss euch um Hilfe bitten.
Ich habe unten einen Code bei dem die Fehlerroutine nicht so klappt wie ich es mir vorstelle.
Es muss ein neuer Tabellenblattname eingegeben werden.
Dann wird die tabelle "Regal_leer" kopiert und entsprechend umbenannt.
Gebe...
28.02.2011 14:06:52
Thread-ID: 1203349
8 Beiträge
On Error Resume Next
Markus

Hallo zusammen,
kann mir jemand sagen, warum das Makro unter Excel 2007 nicht läuft?
im 2003 lief es tadellos!
Danke. Gruß Markus
Sub Vorgaben_Import1() On Error Resume Next Dim strPfad As String Workbooks.Open Filename:=strPfad & Environ("UserProfile") & "\Desktop\" &am...
03.06.2011 15:00:26
Thread-ID: 1217231
5 Beiträge
Application.Goto Reference:="Z1S1"
Bastian

Liebes Forum,
ich soll Dateien an eine Neue Excel-Version anpassen. Das Makro unten läuft leider nicht mehr und steigt bereits in der Zeile
Application.Goto Reference:="Z1S1"
aus.
Ich bekomme das Makro nicht zum laufen. Kann mir einer bitte helfen und mal auf den Code schauen?<...
07.12.2011 16:39:32
Thread-ID: 1241016
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Fehlerbehandlung in Excel VBA: On Error richtig nutzen

Schritt-für-Schritt-Anleitung

  1. Fehlerbehandlung aktivieren: Du kannst die Fehlerbehandlung in VBA mit der Anweisung On Error GoTo <Label> aktivieren. Ersetze <Label> durch den Namen der Stelle, zu der der Code springen soll, wenn ein Fehler auftritt.

    Sub Beispiel()
   On Error GoTo Fehlerbehandlung
   ' Dein Code hier
   Exit Sub
Fehlerbehandlung:
   MsgBox "Ein Fehler ist aufgetreten!"
End Sub

  2. Fehler zurücksetzen: Wenn du den Fehler behandelt hast, kannst du Err.Clear verwenden, um den Fehlerstatus zurückzusetzen.

  3. Resume verwenden: Nutze Resume Next, um die Ausführung nach einem Fehler dort fortzusetzen, wo sie unterbrochen wurde.

    Sub BeispielMitResume()
   On Error GoTo Fehlerbehandlung
   ' Dein Code hier
   Exit Sub
Fehlerbehandlung:
   MsgBox "Ein Fehler ist aufgetreten!"
   Err.Clear
   Resume Next
End Sub

Häufige Fehler und Lösungen

  • Fehler tritt nur einmal auf: Wenn du die Anweisung On Error GoTo verwendest, kann es vorkommen, dass nach dem ersten Fehler kein weiterer Fehler abgefangen wird. Stelle sicher, dass du Err.Clear und Resume Next nach dem Fehler verwendest.

  • Typen unverträglich: Wenn du in einer Schleife arbeitest, kann ein On Error Resume Next helfen, um einen Fehler zu ignorieren, aber sei vorsichtig, dass du nicht wichtige Fehler überspringst.

Alternative Methoden

  • On Error Resume Next: Diese Anweisung ignoriert alle Fehler und fährt mit dem nächsten Befehl fort. Nutze sie mit Bedacht, da du so möglicherweise wichtige Fehler nicht bemerkst.

    On Error Resume Next
' Dein Code hier
If Err.Number <> 0 Then
   MsgBox "Ein Fehler ist aufgetreten!"
End If

  • On Error GoTo 0: Mit dieser Anweisung kannst du die aktive Fehlerbehandlung abschalten. Sie ist nützlich, wenn du sicherstellen möchtest, dass nachfolgende Fehler auf die Standardbehandlung zurückgesetzt werden.

Praktische Beispiele

Hier sind einige praktische Szenarien zur Verwendung von On Error in Excel VBA:

  1. Einlesen von Dateien:

    Sub DateiEinlesen()
   On Error GoTo Fehlerbehandlung
   Dim textzeile As String
   Open "C:\Datei.txt" For Input As #1
   Do While Not EOF(1)
       Line Input #1, textzeile
       ' Verarbeitung des Textes
   Loop
   Close #1
   Exit Sub
Fehlerbehandlung:
   MsgBox "Fehler beim Einlesen der Datei!"
   Err.Clear
   Resume Next
End Sub

  2. Berechnungen:

    Sub Berechnung()
   On Error GoTo Fehlerbehandlung
   Dim a As Integer, b As Integer, c As Integer
   a = 10
   b = 0
   c = a / b ' Division durch Null
   Exit Sub
Fehlerbehandlung:
   MsgBox "Berechnungsfehler!"
   Err.Clear
   Resume Next
End Sub

Tipps für Profis

  • Verwende Option Explicit, um sicherzustellen, dass alle Variablen deklariert sind. Dies hilft, Fehler wie Typenunverträglichkeiten zu vermeiden.

  • Überlege, ob du für komplexe Fehlerbehandlungen separate Fehlerhandler verwenden möchtest, um die Lesbarkeit deines Codes zu verbessern.

  • Dokumentiere deine Fehlerbehandlungsroutinen gut, damit du und andere Entwickler verstehen, wie und warum Fehler abgefangen werden.

FAQ: Häufige Fragen

1. Warum funktioniert On Error GoTo nur einmal? Es kann sein, dass der Fehlerstatus nicht zurückgesetzt wurde. Stelle sicher, dass du Err.Clear und Resume korrekt verwendest.

2. Was ist der Unterschied zwischen On Error Resume Next und On Error GoTo? On Error Resume Next ignoriert Fehler, während On Error GoTo zu einem definierten Fehlerbehandlungsblock springt.

3. Wie kann ich mehrere Fehler in einer Schleife behandeln? Nutze On Error Resume Next am Anfang der Schleife und überprüfe nach jedem kritischen Befehl den Err.Number.

4. Was passiert, wenn ich Resume Next nach einem Fehler verwende? Der Code wird an die nächste Zeile nach dem Fehler fortgesetzt, was hilfreich sein kann, wenn du den Fehler ignorieren möchtest.

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