Private Sub cmdSuchen_Click()
Dim rng As Range
Set rng = Columns(1).Find( _
what:=txtSuchbegriff.Text, _
lookat:=xlPart, _
LookIn:=xlFormulas)
If rng Is Nothing Then
MsgBox "Suchbegriff wurde nicht gefunden!"
Else
MsgBox "Suchbegriff wurde in Zeile" & rng.Row & " gefunden!"
End If
End Sub