Farbanzahl
12.01.2010 10:01:30
Arend Keesenberg
Liebe Experten:
ich brauch bitte eure Hilfe mit dieser
Function aus eurem Forum:
Function RotZaehlen(Rg)
Dim C As Range
Application.Volatile
For Each C In Rg.Cells
If C.Interior.ColorIndex = 3 Then
RotZaehlen = RotZaehlen + 1
End If
Next C
End Function
denn das rot kommt bei mir über eine bedingte Formatierung und diese erkennt die
Function nicht.
Wie muss ich die
Function abwandeln.
herzlichen Dank für Eure Hilfe
Anzeige