Zwei Fehler nacheinander

Klexy · 2016-04-07T18:01:22+00:00

Moin zusammen. Ich habe einen On Error GoTo Hierhin und danach einen On Error GoTo Dahin. Wenn nur einer von den beiden anschlägt, ist alles gut. Wenn aber beide anschlagen, geht es nicht weiter. Die Beispieldatei ist auf das Kernproblem reduziert. Dort, wo jetzt die Meldungen kommen, ist im Original "normaler" Code. Ich hab nirgends eine Lösung dafür gefunden. Auch online-excel.de hat mir nicht weitergeholfen. Wo liegt der Hase im Pfeffer? https://www.herber.de/bbs/user/104830.xls

Hi Klexy:
aufpassen, du verwechselst schon wieder das "Resume" mit dem "On Error Resume Next".
das sind aber zwei verschiedene Sachen
"On Error Resume Next" bewirkt einfach, dass bei einem Fehler mit dem nächsten Programmschritt weiter gemacht wird.
"Resume" bewirkt die Beendigung des Fehlerbehandlungsmodus nach einem "On Error Goto Sprungmarke" und erzwingt gleichzeitig den Rücksprung.
beim Rücksprung hast du drei Möglichkeiten:
a) Resume ohne weitere Angaben: Rücksprung zur Fehlerverursachenden Zeile und Wiederholen dieser
b) Resume Next: Rücksprung zur Zeile nach der Zeile, die den Fehler verursacht hat
c) Resume Sprungmarke: Sprung zu einer Sprungmarke.
die Option: Resume und Weitermachen mit dem nächsten Befehl nach Resume gibt es nicht, das müsste dann durch entsprechende weitere Sprungmarken realisiert werden:
hier nochmal eine weitere Variante, wie das mit Resume zu realisieren wäre:

Sub Zwei_Fehler_nacheinander()
Dim Wort As Variant
Wort = 123
Columns("A:A").Select
On Error GoTo Nicht_Gefunden_A
Selection.Find(What:=Wort & "a").Select
GoTo Alles_gut_A
Nicht_Gefunden_A:
Resume Weiter_gehts_1
Weiter_gehts_1:
On Error GoTo Nicht_Gefunden_B
Selection.Find(What:=Wort & "b").Select
GoTo Alles_gut_B
Nicht_Gefunden_B:
Resume Weiter_gehts_2
Weiter_gehts_2:
MsgBox "Weder a noch b vorhanden"
GoTo Ende
Alles_gut_A:
MsgBox "a vorhanden"
Exit Sub
Alles_gut_B:
MsgBox "b vorhanden"
Exit Sub
Ende:
MsgBox "Trotzdem geht's weiter!"
Exit Sub
End Sub

Gruß Daniel
PS: ich hoffe, es wird klar, warum diese Form des Programmierens auch "Spaghetti-Code" genannt wird.

Hi
du musst zwei Sachen unterscheiden, die du hier nicht durcheinander werfen darfst:
der Fehlersprung: On error Goto Sprungmarke startet den Fehlerbehandlungsmodus und dieser wird mit Resume Rücksprung wieder beendet.
davon zu unterscheiden ist das On Error Resume Next, welches bewirkt dass bei einem Fehler nichts passiert sondern einfach mit dem nächsten Programmschritt weiter gemacht wird.
Diesen Modus beendet man dann wieder On Error Goto 0, welches wieder das normale Fehlerverhalten (Abbruch) aktiviert.
die Variable err brauchst du bei On Error Resume Next um festzustellen, ob ein Fehler passiert ist oder nicht, nach einem Fehler bekommt diese Variable als Wert die Fehlernummer.
sie behält diesen Fehlerwert, bis man sie entweder manuell auf 0 setzt, oder On Error Goto 0 ausführt oder ein neuer Fehler passiert (dann bekommt sie die neue Fehlernummer als Wert)
wenn du jetzt also zwei Stellen hast, an denen ein Fehler passieren kann, dann musst du vor der zweiten Stelle err = 0 setzen, weil du sonst ja nicht erkennen kannst, ob das err0 vom zweiten Fehler stammt oder noch vom ersten.
Unter Verwendung von Resume könnte man dein Problem so lösen (wobei dann weitere Sprungmarken verwendet werden müssen:

Sub Zwei_Fehler_nacheinander()
Dim Wort As Variant
Wort = 123
Columns("A:A").Select
On Error GoTo Nicht_Gefunden_A
Selection.Find(What:=Wort & "a").Select
GoTo Alles_gut_A
Weiter_gehts_1:
On Error GoTo Nicht_Gefunden_B
Selection.Find(What:=Wort & "b").Select
GoTo Alles_gut_B
Weiter_gehts_2:
MsgBox "Weder a noch b vorhanden"
GoTo Ende
Alles_gut_A:
MsgBox "a vorhanden"
Exit Sub
Alles_gut_B:
MsgBox "b vorhanden"
Exit Sub
Ende:
MsgBox "Trotzdem geht's weiter!"
Exit Sub
'--- Ab hier die Fehlerbehandlung mit Abschluss der Fehlerbehandlungsroutine
Nicht_Gefunden_A:
Resume Weiter_gehts_1
Nicht_Gefunden_B:
Resume Weiter_gehts_2
End Sub

Gruß Daniel

Forumthread: Zwei Fehler nacheinander

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Fehlerbehandlung in Excel VBA: On Error Resume Next und Co.

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)