Doppelte Zellen per Makro farbig markieren

Computer: Software & Programmierung Office Software
1

Hi zusammen,

folgendes Makro löscht doppelte Zellwerte, wie muß ich das Makro umschreiben, damit es die doppelten Zellen nicht löscht sondern z.B. mit einem roten Hintergrund formatiert?

Sub DoppEinträgeAusListeEntf()
Dim r, c As Variant
Set r = Selection.Cells
For c = r.Cells.Count To 1 Step -1
If Application.CountIf(r, r©) 1 Then r©.Value = „“
Next c
End Sub

Danke schon im Voraus!

Gruß,
chemical

2

Erledigt: Doppelte Zellen per Makro farbig markier
Danke, habe bereits die Lösung:

Sub DoppEinträgeAusListeMarkieren()
Dim r, c As Variant
Set r = Selection.Cells
For c = r.Cells.Count To 1 Step -1
If Application.CountIf(r, r©) 1 Then r©.Interior.ColorIndex = 3
Next c
End Sub

Grüße
chemical