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