aus dem Forum habe ich nachstehende Codes, mit denen man Zellen zählen kann,
die einen farblichen Hintergrund haben. Wenn der farbliche Hintergrund aller-
dings durch eine bedingte Formatierung zustande kommt, gehts nicht.
Gibts für eine Farbenzählung mit bedingter Formatierung vielleicht auch ein Lösung?
Option Explicit
' von Melanie Breden und Thomas Ramel
' Anzahl der Zellen mit einer Farbe
Function CountColor(Farbe As Range, ParamArray rngArea()) As Double
Dim rngCell As Range
Dim varArea As Variant
Dim intColor As Integer
intColor = Farbe(1).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
'Im Tabellenblatt dann einfach den folgenden Aufruf:
'=CountColor(A1;$C$1:$C$12)
' Melanie Breden
'Hast du getrennte Bereiche, führe sie durch Simikolons getrennt auf:
'=CountColor(3;A1:A10;C1:C10)
' Anzahl der Zellen mit einer Farbe
' In Zelle=Farbsumme(A1:A10;3)
Function FarbsummeHA(Bereich As Range, Farbe As Integer)
' Hintergrund
Dim Zelle
Application.Volatile
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = Farbe Then
FarbsummeHA = FarbsummeHA + 1
End If
Next
End Function
Besten Dank für eine Hilfe!
mfg
Erich
EXCEL-Shareware und Freeware: http://www.toolex.de
Private Tippgemeinschaft für Lotto oder KENO: http://www.kenostrategen.de