Kann mir jemand sagen, was ich in der folgenden Formel noch umstellen muß, wenn ich nicht die Anzahl der farbigen Felder, sondern die Summe der Zelleninhalte der farbigen Felder erhalten möchte (ich habe als Inhalte Ziffern in den Zellen stehen).
Sub farbig()
Function FarbsummeHA1(Bereich As Range)
' Hintergrund
Dim Zelle
Application.Volatile
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex <> xlNone Then
FarbsummeHA1 = FarbsummeHA1 + 1
End If
Next
End Function
Danke im voraus.
Lothar