Hallo,
falls es lediglich darum geht, die Ergebnisse in mehrere Zellen zu schreiben, kann man auch folgende Funktion nehmen:
Function CountColorCells(ColorIndex As Range, chkRange As Range) As Integer
Dim rng As Range
Dim iCnt As Integer
For Each rng In Intersect(chkRange.Worksheet.UsedRange, chkRange).Cells
If rng.Interior.ColorIndex = ColorIndex.Interior.ColorIndex Then
iCnt = iCnt + 1
End If
Next
CountColorCells = iCnt
End Function
In den Zellen, wo die Anzahl angezeigt werden soll, muss dann lediglich folgende Formel eingetragen werden:
=CountColorCells(A1;A1:O1)
Beim ersten Parameter muss die Zelle angegeben werden, deren Farbe gezählt werden soll.
Beim zweiten Parameter muss der Prüf-Bereich angegebn werden.
Wenn im angegebenen Bereich nur eine Zelle identlisch markiert ist, wird auch nur eine 1 zurückgegeben. Falls mehrere vorhanden sind, wird die entsprechende Anzahl zurückgeliefert.
Durch Neuberechnen (F9) der Zellen werden die Werte aktualisiert.
|