ich habe eine Funktion aus dem Internet kopiert, mit der man Farben zählen kann.
Dazu habe einen Namen vergeben, mit dem der Farbindex der Zelle ermittelt wird.
Die Funktion zählt, wie oft diese Farbe (hier F1) in einem definiertem Bereich (hier A1:A20) vorkommt. Die Funktion rufe ich in einer Zelle auf (=Farbsumme(A1:A20;F1)
Function Farbsumme(Bereich As Range, Farbe As Integer)
Dim Zelle As Object
Application.Volatile
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = Farbe Then
Farbsumme = Farbsumme + 1
End If
Next
End Function
Kann mir jemand sagen, wie ich die Funktion erweitern muss um zusätzlich noch einen 2. Bereich prüfen zu können (beide Bedingungen müssen wahr sein)?
Beispiel:
In Bereich A1:A20 wird die Farbe geprüft =Farbsumme(A1:A20;F1)
In einem 2. Bereich (z.B. B1:B20 soll noch geprüft werden, ob in der jeweils geprüften Zeile ein "x" steht)
Summenprodukt hat bei mir nicht funktioniert =SUMMENPRODUKT(B1:B20="x")*(Farbsumme(A1:A20;F1)
Mit ZählenWennS habe ich es auch nicht geschafft.
Danke, für Eure Vorschläge!
Viele Grüße