ich brauche Eure Hilfe! Im Archiv habe ich nichts passendes gefunden.
Ich habe in der Spalte A ab Zeille 2 Kundenummern (9stellig). Diese Kundennummer tauchen öfters auf.
Jetzt habe ich schon sortiert. Allerdings ist es bei einer Anzahl von 30.000 Datensätzen unmöglich, die doppelten zu finden.
Folgendes Makro habe ich im Archiv gefunden:
Sub Doppelte_markieren()
Dim rng As Range
Dim Bereich As Range
Set Bereich = Range("a2:a10000") 'Bereich der durchsucht wird
For Each rng In Bereich
If Application.CountIf(Bereich, rng) > 1 Then _
rng.Interior.ColorIndex = 20
Next
End Sub
Allerdings wird hier auch schon der erste Eintrag markiert. Es soll aber erst ab dem zweiten Eintrag markiert werden.
Beispiel:
123 keine Farbe
123 rot
123 rot
Wenn möglich, bitte als richtige Farbe (und nicht bedingte Formatierung), weil die Kundenummern dann noch kopiert werden. Und mein makro kann bedingte Formatierung nicht erkennen.
Gruß
Marc