Zellen summieren mit bedingter Formatierung
Heibelstein
ich möchte Zellen summieren, die einen speziellen Hintergrund Rot haben.
Ich habe auch zwei Lösungen gefunden, die allerdings nicht funktionieren, wenn die Hintergrundfarbe ROT durch eine bedingte Formatierung erzeugt worden ist.
Gibt es hierfür auch eine Möglichkeit?
Hier sind die Beispiele für die Funktionen:
Option Explicit
' In Zelle =SummeFarbe1(A1:A10;3) 3 steht für Rot
Function SummeFarbe1(Bereich As Range, Farbe As Integer)
' Schriftfarbe
Dim Zelle As Object
Application.Volatile
For Each Zelle In Bereich
If Zelle.Font.ColorIndex = Farbe Then
SummeFarbe1 = SummeFarbe1 + Zelle
End If
Next
End Function
Public
Function SummeFarbe3(basis As Range, reihe As Range)
' Summe
Farbe = basis.Interior.ColorIndex
s = 0
For Each sc In reihe
If sc.Interior.ColorIndex = Farbe Then
s = s + sc.Value
End If
Next
SummeFarbe3 = s
End Function
Vielen Dank
Gruß
Heibelstein