EXCEL - MAKROFARBE ENTFERNEN

Eine frage in excel:

kann man bei einem Makro der bei einer Tabelle eine spalte markiert, den befehl geben, das er bei einer neuen suche die Makierung aufgibt, und diese nur in der neuen suche benutzt,... is kompliziert ausgedrückt weiß aber nicht wie ich das anders beschreiben soll

das ist der makro:

Sub suchen()
Dim zaehler1 As Long
Dim zaehler2 As Boolean
Dim suche1 As Range
Dim wert As String
wert = InputBox("Suchbegriff")
For zaehler1 = 1 To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
Set suche1 = Worksheets(1).Range("A" & zaehler1 & ":IV65535").Find(wert)
If Not suche1 Is Nothing Then
If Range(suche1.Row & ":" & suche1.Row).Interior.ColorIndex <> 1 Then
Rem Range(suche1.Row & ":" & suche1.Row).Interior.ColorIndex = xlNone
Range(suche1.Row & ":" & suche1.Row).Interior.ColorIndex = 1
zaehler1 = suche1.Row
zaehler2 = True
End If
If Range(suche1.Row & ":" & suche1.Row).Interior.ColorIndex = 1 And zaehler2 = False Then
Range(suche1.Row & ":" & suche1.Row).Interior.ColorIndex = xlNone
End If
End If
Next zaehler1
End Sub


es wäre super wenn mir jemand helfen könnte

Ich habe jetzt einen anderen in Benutzung, und wollte wissen ob der mit autovervollständigen suchen kann, und wie ich ihn nicht nur auf spalte a beziehen kann!

mit autovervollständigen meine ich: ich suche zb die 4778983234432 und gebe nur die 477898 ein und er listet mir dann die Zahl auf und die treffer die genauso beginnen z.b. die 4778986347432

das ist der makro:

Sub suchennnummer()
Dim rBereich As Range
Dim rZelle As Range
Dim wert As String
wert = InputBox("Suchbegriff")
Range("A1:IV" & Range("A65536").End(xlUp).Row).Interior.ColorIndex = xlNone
Set rBereich = Range("A1:A" & Range("A65536").End(xlUp).Row)
For Each rZelle In rBereich
If rZelle = wert Then Rows(rZelle.Row).Interior.ColorIndex = 3
Next rZelle
End Sub