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
Jetzt möchte ich neben dem Range("L2:L5000") noch die Range("R2:R5000") überprüfen.Ich bringe leider den Bereich nicht zustande.
Kann mir bitte jemand helfen. Besten Dank