Sub search_change()
Dim strSuche As String
Dim Zeile As Long
Dim Spalte As Long
Dim i As Long
strSuche = Replace(Tabelle1.search, " ", "")
For Zeile = 13 To 50
For Spalte = 2 To 7
If InStr(1, LCase(Cells(Zeile, Spalte).Value), LCase(strSuche)) > 0 Then
For i = 2 To 7
Cells(Zeile, i).Interior.Color = RGB(200, 160, 35)
Next
Zeile = Zeile + 1
Else
For i = 2 To 7
Cells(Zeile, i).Interior.Color = RGB(255, 255, 255)
Next
End If
Next
Next
End Sub