Sub Suche()
On Error Resume Next
Dim strSuche As String
Dim ret As Boolean
strSuche = InputBox("Suchstring:", "Suche")
ret = Cells.Find(What:=strSuche, _
            After:=ActiveCell, _
            LookIn:=xlFormulas, _
            LookAt:=xlPart, _
            SearchOrder:=xlByRows, _
            SearchDirection:=xlNext, _
            MatchCase:=False, _
            SearchFormat:=False).Activate
If Not ret Then MsgBox "Suchstring wurde nicht gefunden."
End Sub