Suchen nach Zeichenfolge und dann Zelle färben
04.03.2013 18:36:52
Selma
ich möchte prüfen, ob es in Spalten die Zeichenfolge "..." in Zellen vorkommt.
Sobald eine Zelle gefunden wird, die "..." beinhaltet, dann soll in Zeile 1 für diese Spalte die Zelle mit Interior.ColorIndex = 3 darstellt werden.
Danach die nächste Spalte prüfen usw.
Die Prüfung soll für den Bereich A1 bis letzte leere Zeile in Spalte A und die letzte Spalte mit dem Zellinhalt wird in Zeile 1 ermittelt.
Mein Versuch:
Sub Search_Fill()
Dim LastCol As Long
Dim LastRow As Long
Dim rng As Range
On Error Resume Next
'letzte Spalte in Zeile 1 ermitteln
LastCol = Cells(1, Columns.Count).End(xlToLeft).Column
'letzte Zeile in Spalte A ermitteln
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
For Each rng In Range("A1", Cells(LastRow, LastCol))
... hier fehlt es mir.....
Next
End Sub
Gruß,
Selma
Anzeige