AW: Zelll Hintergrund FArbe zählen
08.06.2018 11:11:25
Markus
Hallo Werner,
ja das habe ich ja auch schon gegoogelt.
hier mal ein Code den ich von Thomas Ramel gefunden habe. Der funktioniert ja auch, allerdings nur auf eine Spalte.
Ich benötige aber eine Zählroutine in Abhängigkeit der Spalte A wenn dort weiß (nicht gelb)ist dann Addiere die Roten Farben in B
Public Function SummeWennFarbe2(Bereich As Range, SuchFarbe As Variant, _
Optional Summe_Bereich As Range) As Double
'© Thomas Ramel / 30.05.2003
'Funktion zur Anwendung von SUMMEWENN() mit Hintergrundfare als Kriterium
'Mit angegeben wird eine Zelle mit der gesuchten Hintergrundfarbe oder dem
'entprechende ColorIndex, sowie die üblichen Parameter für SUMMEWENN()
'Zur automatischen Aktualisierung im Tabellenblatt den folgenden Term
'anh ngen: +(0*JETZT()) und F9 drücken
'Also z.B. wie folgt: =SummeWennFarbe(A1;A1:A10)+(0*JETZT())
Dim intI As Integer
Dim intColor As Integer
Dim Summe As Double
If IsObject(SuchFarbe) Then
intColor = SuchFarbe(1).Interior.ColorIndex
Else
intColor = SuchFarbe
End If
If Summe_Bereich Is Nothing Then Set Summe_Bereich = Bereich
For intI = 1 To Bereich.Count
If Bereich(intI).Interior.ColorIndex = intColor Then
Summe = Summe + Summe_Bereich(intI)
End If
Next intI
SummeWennFarbe = Summe
End Function