Suchergebnis = Farbe ändern
15.03.2007 11:29:27
Thomas
Brauche mal wieder eure hilfe.
Ich habe eine Datei in der ich eine Suchfunktion eingebaut habe (siehe code unten).
Wollte nun wissen ob es möglich ist bei finden des Suchbegriffes diesen farblich zu ändern.
Beispiel:
Suchbegriff ist "Direct"
in Zelle A278 steht "Direct Marketing" dann sollte es geändert werden in
Hoffe ich konnte euch verständlich machen was ich suche.
Danke auf jedenfall für eure Hilfe, Thomas
Private Sub suche()
Dim zeile As Single, spalte As Single, ds As Worksheet
Set ds = Sheets("Daten")
For zeile = 5 To ds.UsedRange.Rows.Count
For spalte = 5 To 14
If ds.Cells(zeile, spalte) Like "*" & ds.Cells(2, 6) & "*" Then ds.Cells(zeile, 15) = "x"
Next spalte
Next zeile
For zeile = 5 To ds.UsedRange.Rows.Count
If ds.Cells(zeile, 1) "" And ds.Cells(zeile, 15) "x" Then ds.Rows(zeile).Hidden = True
Next zeile
End Sub