Feststellen, ob ein Fehler aufgetreten ist
29.04.2018 22:46:29
Barbaraa
kann man feststellen, ob nach
On Error Resume Next
ein Fehler gekommen ist?
In folgendem Beispiel ist die .Find-Methode in einer Zeile eingebaut.
Damit kann ich eine erfolglose Suche nicht abfangen, ausser mit der Fehlerbehandlung.
Sub test()
Dim lFundzeile As Long
Cells(4, 3) = "Hund"
Cells(5, 3) = "Katze"
On Error Resume Next
lFundzeile = Range(Cells(4, 3), Cells(5, 3)).Find("Fisch").Row
'War hier nun ein Fehler oder nicht?
On Error GoTo 0 'Fehlerbehandlung wieder ausschalten
MsgBox "Hurra, gefunden!"
End Sub
Anzeige