ich suche ein Makro, das mir die Zellen in der gesamten Spalte A vergleicht und alle identischen Zellen farblich markiert.
Bin leider in den einschlägigen Archiven nicht fündig geworden.
Hubert
Sub doppelt()
Columns("A:A").FormatConditions.Delete
Columns("A:A").FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ZÄHLENWENN($A:$A;A1)>1"
Columns("A:A").FormatConditions(1).Interior.ColorIndex = 3
End Sub
Sub Alle_wie_diese()
With Columns(Selection.Column)
.FormatConditions.Delete
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""" & Selection.Value & """"
.FormatConditions(1).Interior.ColorIndex = 3
End With
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen