On Error
Remo
Ich suche in Tabelle2 den Text von Zelle A1 in Tabelle 1.
Ist der Text in Tabelle2 nicht vorhanden, bekomme ich eine
Laufzeitfehler-Meldung. Dies wollte ich mit On Error umgehen.
Funktioniert leider aber nicht.
Vielleicht sieht jemand von euch was ich falsch mache...
Freue mich auf Antworten.
Gruss Remo
Sub Erste_Zeile()
On Error GoTo Fehler
Suchbegriff = Worksheets(1).[a1]
Anfang = Worksheets(2).Cells.Find(what:=Suchbegriff, lookAT:=xlWhole)
End
Fehler:
MsgBox "Nicht vorhanden"
End Sub
Anzeige