Zwei Fehler nacheinander

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Zwei_Fehler_nacheinander() Dim Wort As Variant Wort = 123 Columns("A:A").Select On Error Resume Next Selection.Find(What:=Wort & "a", After:=ActiveCell, LookIn:=xlValues, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, _ SearchFormat:=False).Offset(0, 0).Select If Err = 0 Then On Error GoTo 0 GoTo Alles_gut_A End If Err = 0 Selection.Find(What:=Wort & "b", After:=ActiveCell, LookIn:=xlValues, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, _ SearchFormat:=False).Offset(0, 0).Select If Err = 0 Then On Error GoTo 0 GoTo Alles_gut_B End If On Error GoTo 0 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!" End Sub

Sub Zwei_Fehler_nacheinander() Dim Wort As Variant Dim rngX As Range Wort = 123 Columns("A:A").Select Set rngX = Columns(1).Find(what:=Wort & "a") If Not rngX Is Nothing Then rngX.Select MsgBox "a vorhanden" Else Set rngX = Columns(1).Find(what:=Wort & "b") If Not rngX Is Nothing Then rngX.Select MsgBox "b vorhanden" Else MsgBox "weder a noch b vorhanden" MsgBox "Trotzdem gehts weiter" End If End If End Sub

Danke, Daniel.
Den Resume Next damit auszutrixen, dass der GoTo in eine If-Box gepackt wird, hätte mir auch einfallen können, aber da war die Fahrradkette nicht lang genug. Das ist ordentliche Hausmannskost mit Breitcord.
Allerdings sind in dieser Lösung alle drei On Error GoTo 0 und das Err = 0 überflüssig, oder?
Die zweite Möglichkeit, das Find-Ergebnis als Range zu definieren, kannte ich noch nicht. Again what learnt. Das gefällt mir ausnehmend gut und so werd ich es machen, weil es auch mit dem wenigsten Code auskommt.
Jetzt noch einmal zu meinem Grundproblem:
Zitat: "wenn nach einem "On Error Goto" ein Fehler auftritt, dann befindest du dich im "Fehlerbehandlungsmodus". Ist der Fehlerbehandlungsmodus aktiv, kann kein weiterer Fehlersprung mehr ausgeführt werden."
Soweit ist mir das klar.
Aber warum setzt mir das On Error GoTo 0 diesen Fehlerbehandlungsmodus nicht wieder auf "aus"? Dazu ist es doch da, wie ich das Internet zu verstehen glaubte (aber so richtig deutlich wird das nirgends erklärt). Und das Err = 0 bewirkt auch nicht, dass der Fehlerbehandlungsmodus ausgeschaltet wird. Was bringen die beiden denn? Wo wird das mal idiotensicher erklärt?

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

If Worksheetfunction.CountIf(Columns(1), Wort & "a") > 0 Then Msgbox "a vorhanden" ElseIF Worksheetfunction.CountIf(Columns(1), Wort & "b") > 0 Then Msgbox "b vorhanden" Else Msgbox "Weder a noch b vorhanden" End If

Sub TestFehler() Dim isErrResume As Boolean On Error GoTo fx wh: isErrResume = CBool(1 / 0) On 8 - MsgBox("PgmEnde?", vbQuestion + vbYesNo + _ IIf(isErrResume, vbDefaultButton1, vbDefaultButton2)) GoTo wh, ex fx: If CBool(Err.Number) Then MsgBox Err.Description, vbCritical, "Fehler " & Err.Number isErrResume = True: Resume Next End If ex: MsgBox "PgmEnde", vbExclamation End Sub

Sub TestFehler() Dim isErrResume As Long On Error GoTo fx MsgBox "1/" & isErrResume & "=" & 1 / isErrResume fx: If CBool(Err.Number) Then MsgBox Err.Description, vbCritical, "Fehler " & Err.Number: isErrResume = 1: Resume End If End Sub

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

Sub Mach() Dim sWort As String sWort = "xy" If MyFunktion1(sWort) And MyFunktion2(sWort) Then MsgBox "a + b" Exit Sub End If If MyFunktion1(sWort) Then Msgbox "a" Exit Sub End If If MyFunktion2(sWort) Then MsgBox "b" Exit Sub End If End Sub

Beliebteste Forumthreads (12 Monate)

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread