Hallo Leute! Ich bin ein ziemlicher Noob was VBA anbelangt.

Folgendes, ich möchte eine Summe nach Farben erstellen. (also alle Kästchen mit Farbe grün --> summe bilden).
 

Habe dazu auch ein Super-Video gefunden wo dies super erklärt wird.

(37) Nach Hintergrundfarbe summieren in Excel I Excelpedia - YouTube
 

Das ganze funktioniert auch soweit so gut, ich habe nur allerdings ein Problem, wenn in einem grünen Feld ein Text ist, möchte ich dass es Excel als 0 animmt. zurzeit schreibt er noch Error?
Wie kann man das Skript dahin gehend ändern, bitte um Hilfe!

Die Funktion die im Hintergrund läuft ist folgende:

Application.Volatile True

Dim zelle As Range

Dim ZFarbe As Long

ZFarbe = Farbe.Cells(1, 1).Interior.ColorIndex

For Each zelle In Summenbereich

If zelle.Interior.ColorIndex = ZFarbe Then

HintergrundFarbeSummieren = HintergrundFarbeSummieren + zelle.Value

End If Next

End Function