Sub grau()
dim c as range, CValue as double
for each c in [C9-AQ9]
if c.interior.colorindex = 15 then
'ggf. anpassen, falls anderer Grauton
''du hast nicht geschrieben ob der einzelene Zellwert
''durch 4 geteilt werden soll oder die Summe aller Zellen?
Next
End Sub
Function Farbsumme(Bereich As Range, Farbe As Byte)
'Addiert Zellen der angegebenen Hintergrundfarbe
'Farbe als Indexnummer angeben (z.B. 4 für Hellgrün)
'Bei Farbänderungen Aktualisierung mit Taste F9 notwendig
'by [gau]
Application.Volatile
Farbsumme = 0
Dim z As Range
For Each z In Bereich
If z.Interior.ColorIndex = Farbe And IsNumeric(z.Value) Then Farbsumme = Farbsumme + z.Value
Next z
End Function