kann mir jemand sagen wie ich farbige Zellen zählen kann.
Ich habe in meiner Datei von A2-M2753 teilweise farbige Zellen
wo ich jetzt die Anzahl brauche wie viele farbig sind.
Gibt es da eine Lösung?
Danke u. Gruß
Jan
Function Farbsumme(Bereich As Range, Farbe As Integer)
Application.Volatile ' damit bei änderung ausgeführt wird
Dim Zelle
Farbsumme = 0
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = Farbe Then
Farbsumme = Farbsumme + 1
End If
Next
End Function
Sub starten
Sub Farbnummer()
Dim i As Integer
i = ActiveCell.Interior.ColorIndex
MsgBox " Farbnummer " & i
End Sub
geht aber nicht wenn bedingt Formatiert
gruss geri