Office: makrofarbe bei neuer suche entfernen

Ich habe eine frage 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 nur die spalte markiert die gesucht wird,...

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.
wenn ihr meine frage nich versteht schreibt es bitte, ich kann es nich einfacher ausdrücken

 

Hallo!

Reicht es dir schon, einfach alle Zellen des Blatts zu "entfärben"?

Code:

Sub suchen()
Dim zaehler1 As Long
Dim zaehler2 As Boolean
Dim suche1 As Range
Dim wert As String
Sheets(1).Cells.Interior.ColorIndex = xlNone

usw.
...

 

sry, ich habe schon einen neuen makro,... ich suche in zeilen nach bestimmten werten, und diese wollte ich dann mit farbe hinterlegt haben:
das is der makro den ich grade benutze:

Code:

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

und ich würde gerne mit autovervollständigen das ich z.b. die zahl 4778923 suche, nur die zahlen 4778 eingebe, und dann aber auch noch die restlichen treffer angeziegt werden z.b. die 4778162
mfg danke für eure support^^

 

Hallo!

Ungetestet...
Ersetze

Code:

If rZelle = wert Then Rows(rZelle.Row).Interior.ColorIndex = 3 

durch

Code:

If InStr(rZelle, wert) = 1 Then Rows(rZelle.Row).Interior.ColorIndex = 3 

 

Wunderbar! ich bedanke michh jetzt klappt das so wie ich es will! schönen dank für den support! hast mich echt gerettet!