Farbig hinterlegte Zellen zählen

[Flotter Feger]

Hallo Raphaela,

den Code in ein allgemeines Modul ...

PHP-Code:

Function FARBENANZAHL(ID As String, Bereich As Range, Farbe As Range) As Long
Dim erg As Long
Dim c As Range

For Each c In Bereich
    If UCase(ID) = "FONT" Then
        If c.Font.Color = Farbe.Font.Color Then erg = erg + 1
    ElseIf UCase(ID) = "CELL" Then
        If c.Interior.Color = Farbe.Interior.Color Then erg = erg + 1
    End If
Next c
FARBENANZAHL = erg
End Function 


Verwendet wird diese ... UDF ... wie eine normale Formel ...
=FARBENANZAHL("font";B1:B6;B1) --> "font" ... sucht nach der Schriftfarbe ; Bereich in dem gesucht wird ; die Zelle, die als Muster gilt
=FARBENANZAHL("cell";B1:B6;B1) --> "cell" ... sucht nach der Zellfarbe ; ...

Vorsicht: werden Zellen geändert, passt sich diese Formel nicht an !!! Man muss sie händisch über Strg+Alt+F9 neu berechnen.

Sabina