|
Hallo zusammen, habe folgendes Problem:
Ich möchte in einem Bereich, z.B. alle gün gefärbte Zellen zählen die gleichzeitig noch den Wert 1 haben.
Im Prinzip die gleiche Funktion wie Summewenns die aber nicht mit Farben arbeitet. Ich habe folgendes Function bereits im Internet gefunden das die Farben bereits zählt und ich brauche dort die Bedingung das die Farbe nur gezählt wird wenn auch eine 1 drin steht. Ich hoffe das mir jemand helfen kann.
Function Count_Color(Range As Range, color As Range)
Dim COLORC As Integer
Dim COUNTT As Integer
COLORC = color.Interior.ColorIndex
Set IC = Range
For Each IC In Range
If IC.Interior.ColorIndex = COLORC Then
COUNTT = COUNTT + 1
End If
Next IC
Count_Color = COUNTT
End Function
|