Farbige Zellen mit bestimmten Wert zählen

231 Aufrufe
Gefragt 17, Feb 2017 in Tabellenkalkulation von Scab134
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..

2 Antworten

0 Punkte
Beantwortet 17, Feb 2017 von Nighty__
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)
0 Punkte
Beantwortet 19, Feb 2017 von Nighty__
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
...