Hallo Liveplay,
ich hab es mal ein bischen umgebaut, noch nicht die Endlösung etwas einfacher gestalltet
Die Zeilenzahl steht jetzt auch auf 50 fest das muß noch geändert werden, da ich davon ausgehen darf das die Tabelle mehr als 50 Datensätze bekommt.
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
Gruß Detlev
|