Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
136to140
136to140
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

On Error GoTo Errorhandler

Forumthread: On Error GoTo Errorhandler

On Error GoTo Errorhandler
23.07.2002 13:55:42
andré
also ich hab folgenden code:

wenn ich den Code ausführe kommt als erstes halt die Fehlermeldung Pfad nicht gefunden, danach bricht das Programm ab, besser gesagt bringt das debuggenzeugl ...

ist on error ... nur einmal verfügbar und danach ist es ungültig oder wie?

mfg andré

Anzeige

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

Betreff
Datum
Anwender
Anzeige
Re: On Error GoTo Errorhandler
23.07.2002 14:03:25
Udo RiHü
Hallo,
mit Resume 1: anstatt Goto 1: klappt's

Gruss Udo

Re: On Error GoTo Errorhandler
23.07.2002 14:04:25
Nayus

Hallo,
die Sprungmarke "1:" kannst Du Dir sparen

On Error GoTo errorhandler
ChDir "testpfaddenesnichtgibt:\"
Exit Sub
errorhandler:
MsgBox Error
Resume Next



Re: On Error GoTo Errorhandler
23.07.2002 14:04:52
unbekannt
On Error GoTo errorhandler
ChDir "testpfaddenesnichtgibt:\"
On Error GoTo 0


Exit Sub
errorhandler:
MsgBox "Error"

End Sub

Anzeige
Re: On Error GoTo Errorhandler
23.07.2002 14:12:46
Charlie
Hallo, André!

So wie ich das sehe, wird der Befehl 1x ausgeführt, wenn eben ein Fehler auftritt. Soll die Fehlerprüfung im Anschluss an die Fehlermeldung wieder (weiter) aktiv sein, dann musst Du den Befehl On Error Goto errorhandler NACH der Sprungmarke positionieren, damit sie nach dem Sprung wieder aktiviert wird.

Aber: Was soll in Deinem Beispiel der Sprunt zur Marke 1 bewirken? Die Fehlerprozedur wird offensichtlich ausgelöst, wenn ChDir ... einen Fehler produziert. Dann wird der Hinweis angzeigt und Du springst wieder unmittelbar zu dem Befehl, der den 1. Fehler ausgelöst hat. Willst Du Dich in eine Endlosschleife reinmanövrieren?

Dass die "On Error Goto" - Anweisung nur 1x ausgeführt wird, ergibt sich logischerweise daraus, dass man beim Auftreten eines Fehlers üblicherweise eine geeignete (Gegen-)Maßnahme ergreift. Dass man danach den 1. Fehler gezielt wieder produziert, ist wohl nicht im Sinne des Erfinders.

Gruß,
Charlie

Anzeige
Danke o. T.
23.07.2002 14:13:35
andré

;

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
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
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
Anzeige
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 go to .... aber wie ???
heidi

Hallo werte Excel-Gemeinde,
da bin ich mal wieder und weiß nicht weiter.
Mein Programm soll aus einer sehr großen Datei heraus viele kleinere erstellen und
um ein paar Tabellenblätter mit Pivot-Tabellen ergänzen.
Nur bleibt dieses verflixte Makro immer hängen, wenn in der Pivot...
28.03.2011 19:07:17
Thread-ID: 1207969
2 Beiträge
Anzeige
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
on error go to errhandler:
loca

hallo zusammen
ich habe in meinem vba folgende zeile:
on error go to errhandler:
beim ersten fehler springt das programm tatsächlich dorthin. beim zweiten kommt jedoch ein runtime error 91. was mache ich falsch?
besten dank für die hilfe
gruss
loca
22.07.2011 20:15:23
Thread-ID: 1223259
9 Beiträge
Anzeige

Infobox / Tutorial

Fehlerbehandlung in Excel VBA mit On Error GoTo

Schritt-für-Schritt-Anleitung

  1. Aktiviere die Entwicklertools in Excel, falls dies noch nicht geschehen ist. Gehe zu Datei > Optionen > Menüband anpassen und aktiviere das Kontrollkästchen für Entwicklertools.

  2. Öffne den VBA-Editor mit ALT + F11.

  3. Erstelle ein neues Modul:

    • Rechtsklick auf VBAProject (DeineDatei.xlsm) > Einfügen > Modul.

  4. Füge den folgenden Code ein:

    Sub BeispielFehlerbehandlung()
   On Error GoTo errorhandler

   ' Beispielcode, der einen Fehler erzeugt
   ChDir "testpfaddenesnichtgibt:\"
   Exit Sub

errorhandler:
   MsgBox "Ein Fehler ist aufgetreten: " & Err.Description
   Resume Next
End Sub

  5. Testen des Codes: Führe das Makro aus und beobachte, wie die Fehlerbehandlung funktioniert. Die MsgBox zeigt eine Fehlermeldung an, falls ein Fehler auftritt.

Häufige Fehler und Lösungen

  • Fehler: „Pfad nicht gefunden“:

    • Stelle sicher, dass der angegebene Pfad korrekt ist. Ein Tippfehler kann dazu führen, dass der Fehler auftritt.

  • Problem mit On Error GoTo:

    • Wenn On Error GoTo nicht mehr funktioniert, könnte es daran liegen, dass der Fehlerhandler nicht korrekt gesetzt ist. Überprüfe die Reihenfolge deiner Fehlerbehandlungsanweisungen.

  • Endlosschleife durch Resume:

    • Achte darauf, dass nach dem Resume eine Bedingung vorhanden ist, die den Code nicht erneut zum Fehler führt.

Alternative Methoden

  • On Error Resume Next:

    • Diese Methode ignoriert Fehler und lässt das Programm weiterlaufen. Beispiel:
    On Error Resume Next
ChDir "testpfaddenesnichtgibt:\"
If Err.Number <> 0 Then
   MsgBox "Ein Fehler ist aufgetreten: " & Err.Description
End If

  • On Error GoTo 0:

    • Setzt die Fehlerbehandlung zurück. Nach dieser Anweisung werden zukünftige Fehler nicht mehr behandelt.

Praktische Beispiele

  1. Einfacher Fehlerhandler:

    Sub EinfacheFehlerbehandlung()
   On Error GoTo errorhandler
   ' Code, der einen Fehler erzeugt
   ChDir "falscherPfad"
   Exit Sub

errorhandler:
   MsgBox "Fehler aufgetreten!"
End Sub

  2. Fehler mit Resume Next behandeln:

    Sub FehlerUndResume()
   On Error Resume Next
   ChDir "falscherPfad"
   ' Weiterer Code, der möglicherweise fehlerhaft ist
   MsgBox "Programm läuft weiter trotz Fehler."
End Sub

Tipps für Profis

  • Nutze benannte Sprungmarken für bessere Lesbarkeit deines Codes. Anstatt „1:“, benutze aussagekräftige Namen wie errorhandler:.

  • Dokumentiere deine Fehlerbehandlungsroutinen. So kannst du und andere später nachvollziehen, was bei einem Fehler passieren soll.

  • Verwende Fehlernummern in Kombination mit Select Case, um spezifische Fehler zu behandeln und unterschiedliche Aktionen auszuführen.

FAQ: Häufige Fragen

1. Was ist der Unterschied zwischen On Error GoTo und On Error Resume Next? On Error GoTo springt zu einer definierten Stelle im Code, wenn ein Fehler auftritt, während On Error Resume Next den Fehler ignoriert und das Programm fortsetzt.

2. Wie können ich sicherstellen, dass Fehler richtig behandelt werden? Stelle sicher, dass du nach jeder kritischen Anweisung On Error GoTo oder On Error Resume Next verwendest und die Sprungmarken gut dokumentiert sind.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige