Doubletten finden und markieren
30.11.2006 12:21:18
Hubert
gestern bekam ich über das Forum folgendes Makro, das Doubletten in einer Spalte finden sollte.
Leider wird dabei aber nur mit der Zelle verglichen, die vorher angewählt war.
Ich muss aber ein Ergebnis haben in dem ALLE Zellen in der Spalte H miteinander verglichen werden und ALLE Doubletten oder auch mehrfach identische Einträge in rot markiert werden.
Bitte um Hilfe!
Gruß
Hubert
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