Summewenns mit Farben

Function habe ich es hinbekommen, dass alle einem Farbwert entsprechenden
Zellinhalte aufsummiert werden.
Leider brauche ich noch eine weitere Bedingung, d.h., die farbigen Zelleinhalte
sollen nur dann summiert werden, wenn in z.B. Spalte A ein "x" gesetzt wurde.
Mit Summewenns oder Summenprodukt einfach zu lösen, wenn nicht die Farben in´s
Spiel gekommen wären.
Bisheriger Code, der nur die Farbe berücksichtigt:

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


Hat jemand eine Idee, wie man die Funktion erweitern könnte?

LG Keppatsch