AW: Zwei Fehler nacheinander
07.04.2016 18:23:17
Daniel
Hi
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.
um den Fehlerbehandlungsmodus zu deaktivieren, gibt es die Anweisung Resume und ihre Varianten (gugst du Hilfe)
du könntest das ganze vielleicht auch so lösen (wobei exessive Goto-Programmierung ungefähr genauso aktuell und modern ist wie Breitcord-Schlaghosen):
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