Dublikate markieren
12.02.2015 14:07:27
Roger
Ich habe folgendes Makro gefunden.
Private Sub Workbook_Open()
Dim rng As Range
Dim Bereich As Range
Set Bereich = Range("L2:L5000")
'Bereich der durchsucht wird
For Each rng In Bereich
If Application.CountIf(Range(Bereich(1), rng), rng) > 1 Then _
rng.Interior.ColorIndex = 6
Next
End Sub
Ich bringe leider den Bereich nicht zustande.
Kann mir bitte jemand helfen. Besten Dank
Anzeige