Fehler abfangen
05.10.2006 15:49:28
Chris
Ich hab jetzt meine Suchroutine so gemacht:
Private Sub CommandButton1_Click()
If i = 1 Then
Columns(1).Find(What:=TextBox1.Value).EntireRow.Select
i = i + 1
Else
Columns(1).FindNext(After:=ActiveCell).EntireRow.Select
End If
End Sub
Klappt soweit auch ganz gut - nur, wenn der angegebene Suchtext nicht gefunden wird, spuckt mein Excel "Die Find-Eigenschaft des Range-Objektes kann nicht zugeordnet werden" aus. Also brauch ich ne Routine, die diesen Fehler abfängt.
Es soll dann einfach ne MsgBox geöffnet werden, in der steht "Suchtext nicht gefunden" oder sowas in der Art.
Wer kann helfen?
Danke,
Chris
Anzeige