wie kann ich in einem Worksheet die Anzahl der unterschiedlichen Füllfarben
ermitteln(keine bedingten Formate). Es soll nicht gezählt werden wie oft rot
oder balu, nur eine Meldung: Es werden 22 Farben verwendet.
mfg Fred
Sub AnzahlUnterschiedlicherFarben()
Dim Farben As New Collection, x, c As Range
For Each c In ActiveSheet.UsedRange
On Error Resume Next
x = Farben(CStr(c.Interior.ColorIndex))
If Err.Number = 5 Then
Farben.Add 1, CStr(c.Interior.ColorIndex)
Err.Clear
ElseIf Err.Number <> 0 Then
MsgBox Err.Number
Exit Sub
End If
Next
MsgBox Farben.Count - 1
End Sub