Farbsumme und bed. Formatierung

Function Farbsumme(Bereich As Range, Farbe As Integer)
Dim Zelle As Object
Application.Volatile
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = Farbe Then
Farbsumme = Farbsumme + Zelle
End If
Next
End Function

Allerdings rechnet die Farbsumme nicht, wenn die Farbe über die bedingte Formatierung kommt.
Hat jemand hierzu einen Lösungsansatz?
Danke
Richy