Und zwar bitte mit einem Visual Basic Code!!!
Sub suchen_1()
Dim SWERT As String
Dim ze As Integer
Dim z As Integer
Dim firstAddress As String
Dim c
SWERT = Application.InputBox("Suchbegriff eingeben!", "Suche")
ze = Cells(65536, 1).End(xlUp).Row
For z = 1 To ze
Cells(z, 1).Interior.ColorIndex = xlColorIndexNone
Next
With Sheets(1).Range("A1:A" & ze)
Set c = .Find(SWERT, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Interior.ColorIndex = 6
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub