Hi,
Sub farbe1()
Dim c As Range, i As Integer
For Each c In Range("A1:A20")
If c.Interior.ColorIndex = 5 Then
i = i + 1
End If
Next c
MsgBox i
End Sub
Gruß R@iner
AW: Anzahl bestimmter Zellen
=Peter=
Hallo Ocey,
schau dich mal hier um: http://www.xldynamic.com/source/xld.ColourCounter.html
Eine andere Variante (die allerdings nicht funktioniert wenn die Farbe aus der bedingten Formatierung kommt):
Ermittle den Colorindex der Zelle über
Einfügen - Name - Definieren - Name in der Arbeitsmappe: 'Farbe' - bezieht sich auf:
=ZELLE.ZUORDNEN(63;INDIREKT("ZS(-1)";FALSCH))
- [Hinzufügen] - OK
Wenn du nun die folgende Formel eingibst wird die Hintergrundfarbe der jeweils links davon stehenden Zelle ausgegeben:
=Farbe
Und mit Zählenwenn kannst du dann die Anzahl ermitteln.