Funktion um Zellen mit Hintergrundfarbe zu ermitteln
11.12.2019 12:34:41
Kailash
Ich brauche eine Funktion, die die Anzahl der grün gefärbten Zellen zurück gibt. Ich möchte diese Funktion dann in einer Matrixformel verwenden um weitere Bedingungen hinzuzufügen.
In den grün gefärbten Zellen stehen verschiedene Texte, diese Texte ensprechen Zahlen(die in einer anderen Tabelle stehen). Will die Zahlen addieren.
Das muss ich ja mit einer Matrixformel lösen oder mit SummeWenn oder so.
Aber meine Funktion funktioniert da nicht so richtig.
=CountCcolor($AQ$9;O10:AG10)
=CountCcolor($AQ$9;{"S1"\"S1"\"S1"\"S1"\"S1"\""\""\"T"\"T"\"T"\""\"N"\"N"\"N"\"N"\""\""\""\""})
=2
Function CountCcolor(criteria As Range, ParamArray range_data())
Dim xcolor As Long
Dim datax As Variant
Dim cell As Range
xcolor = criteria.Interior.ColorIndex
For Each datax In range_data
For Each cell In datax
If cell.Interior.ColorIndex = xcolor Then
CountCcolor = CountCcolor + 1
End If
Next cell
Next datax
End Function
Ich hänge mal eine Datei an wo du das genauer angucken kannst.
Ich vermute dass die Funktion dafür nicht geeignet ist.
https://www.herber.de/bbs/user/133719.xlsm
Viele Grüsse