Sub SucheEintraginSpalteA()
Dim strSuchbegriff As String
Dim rngBereich As Range
Dim rngTreffer As Range
strSuchbegriff = InputBox("Bitte Suchbegriff eingeben")
If Len(strSuchbegriff) > o Then
If Trim(strSuchbegriff) <> "" Then
Set rngBereich = Tabelle3.Range("A:A")
rngBereich.Interior.ColorIndex = xlColorIndexNone
Set rngTreffer = rngBereich.Find _
(what:=strSuchbegriff, lookat:=xlPart)
If Not rngTreffer Is Nothing Then _
rngTreffer.Interior.ColorIndex = 4
<strong>rngTreffer.Cells.Select</strong>
Else
MsgBox "Der Suchbegriff " & strSuchbegriff & " konnte nicht gefunden werden!"
End If
End If
End If
End Sub