Farbige Zellen mit bestimmten Wert zählen

Question

Hallo zusammen,

ich habe eine Tabelle (B2:H105), in dieser stehen in den Spalten verschiedene Werte (z.b.: I2 oder E9) .
Einige dieser Werte wurden manuell farbig makiert.

Also mit

=ZELLE.ZUORDNEN(63;INDIREKT("ZS(-1)";)) für die Hintergrundfarbe

kann ich die Anzahl der farbigen Zellen ermitteln.
Das gleiche habe ich nochmal über VBA.

Aber ich hätte gerne eine Unterteilung bei dem Ergebnis der Farbigen Zellen,
Quasi: 5 farbige I2 (von 80) und 12 farbige E9 (von 80) in der Tablelle.


der Wert in klammern ist nicht erforderlich, sollte nur Anschauung dienen..

Answer 1

Hallo Scab134 .-)

Probier ma^l :-)

Gruss Nighty

Einzufügen
Alt+F11/Projectexplorer/AllgemeinesModul

Function FarbeZählen(Zellen As Range, FarbIndex As Long) As String
Dim Zelle As Range
Dim Zähler1 As Long, Zähler2 As Long
For Each Zelle In Zellen
If Cells(Zelle.Row, Zelle.Column).Interior.ColorIndex > -1 Then
Zähler1 = Zähler1 + 1
If Cells(Zelle.Row, Zelle.Column).Interior.ColorIndex = FarbIndex Then
Zähler2 = Zähler2 + 1
End If
End If
Next Zelle
FarbeZählen = Zähler2 & " von " & Zähler1 & " in Spalte " & Zellen.Column
End Function

Formel ist!
=FarbeZählen(Bereich;FarbIndex)

Answer 2

Hallo Community ^^
[list]FarbIndex As Long[/list]
Ist natürlich auch nicht schlecht ... Milliarden von Farben .-)
Aus Long machen wir lieber Integer *schniff*
Gruß Nighty