gleiche Eintäge
12.04.2007 12:37:00
Thomas
ich habe auf der Suche nach meinem "Problem" folgendes Macro im Forum gefunden. Genau das was ich gesucht habe... Hier werden in dem markierten Bereich doppelte Einträge gekennzeichnet.
Sub test()
Dim c As Range
For Each c In Selection
If Application.WorksheetFunction.CountIf(Selection, c.Value) > 1 Then c.Interior.ColorIndex = _
10
Next
End Sub
Frage:
Mein Tabellenblatt umfasst ca. 6000 Zeilen... dauert sehr lange bzw. hängt sich auf...
Von den mehrfach gekennzeichneten Zellen bis auf eine restlichen Zeilen löschen...
möglich?
Vielen Dank im Voraus.
Gruß Thomas aus EF