Duplikate in Spalte markieren - unterschiedliche Duplikate in unterschiedlichen Farben (VBA Excel 2007)

Sub Doppelte_markieren_Spalte_C()

'angelehnt an: http://www.ms-office-forum.net/forum/sitemap/index.php?t-277131.html  

    Dim lngZeile As Long
    Dim lngEnde As Long
    Dim strValue As String
    
    Dim objDupList As Object
    Dim arrFarben As Variant
    Dim intFarben As Integer
    
    arrFarben = Array(3, 5, 7, 4)	'Aufzählung der ColorIndex-Werte entsprechend anpassen  
    
    Set objDupList = CreateObject("Scripting.Dictionary")    'Liste der Duplikate (Key) mit ColorIndex (Item)  
    
    lngEnde = Cells(Rows.Count, 3).End(xlUp).Row
    
    Columns("C:C").Interior.ColorIndex = xlNone	'Alle Farben in Spalte C zurücksetzen  
    
    For lngZeile = 1 To lngEnde
        strValue = Cells(lngZeile, "C").Text  
        If strValue <> "" Then   	'Test Zelle nicht Leer  
            If Application.CountIf(Range("C1:C" & lngEnde), strValue) > 1 Then  
                If objDupList.Exists(strValue) Then	
                    Cells(lngZeile, "C").Interior.ColorIndex = objDupList.Item(strValue)  
                Else
                    Cells(lngZeile, "C").Interior.ColorIndex = arrFarben(intFarben)  
                    objDupList.Add strValue, arrFarben(intFarben)
                    intFarben = intFarben + 1
                    If intFarben > UBound(arrFarben) Then intFarben = 0
                End If
            End If
        End If
    Next
End Sub