Hintergrundfarben zählen, Anpassung gesucht
16.04.2009 22:39:44
Fenja
Ich habe in Zeile D3 bis AK3 mehrere Zellen, die eine grüne (leuchtend grün) Hintergrundfarbe haben.
Diese (grünen Farbindex müsste "4" sein) möchte in Zelle AO3 Zählen lassen.
Folgendes habe ich im recherchiert kann es aber nicht selber anpassen.
in AO3 =CountColor(3;D3:AK3)
(muss auch ein Fehler drin sein, habs schon angepasst aber eben falsch)
Option Explicit
Function CountColor(Farbe As Range, ParamArray rngArea()) As Double
Dim rngCell As Range
Dim varArea As Variant
Dim intColor As Integer
intColor = Farbe(4).Interior.ColorIndex
Application.Volatile
For Each varArea In rngArea
For Each rngCell In varArea
If rngCell.Interior.ColorIndex = intColor Then
CountColor = CountColor + 1
End If
Next
Next
End Function
Danke für eure vorzügliche Hilfe
Fenja