Ich versuche, ein Makro zu erstellen, das Duplikate in der Spalte hervorhebt, in die Text eingegeben wird.

Ich habe 54 Spalten und möchte Duplikate in jeder Spalte hervorheben, wenn der Text eingegeben wird. Das Szenario ist: Wenn "STAPLES" zweimal in Spalte B eingegeben wird, werden die Zellen (B3, B22) hervorgehoben. Ich möchte ein Makro, das dies für jede Spalte ausführen kann. Wenn also "STAPLES" nur einmal in Spalte E eingegeben wird, sollte nichts passieren.

Die Verwendung der bedingten Formatierung = COUNTIF hilft nicht unbedingt (aufgrund des Arbeitsablaufs beim Kopieren von Spalten in neue Arbeitsblätter).

Ich habe dieses Makro bereits:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


Dim Rng As Range
Dim cel As Range

'Test for duplicates in a single column
'Duplicates will be highlighted in red


Set Rng = Range(Range("C1"), Range("C" & Rows.Count).End(xlUp))


For Each cel In Rng
    If WorksheetFunction.CountIf(Rng, cel.Value) > 1 Then

cel.Interior.ColorIndex = 3
    End If
Next cel

End Sub

Es funktioniert in Ordnung, ist aber nur für eine Spalte ("C").

Wie lege ich den Bereich als aktive Spalte fest?

Ich habe versucht, Rng zu ändern

'Set Rng = Range(ActiveCell,ActiveCell.Column.End(xlUp)) 

aber das ist offensichtlich falsch.

Irgendwelche Ideen?