Farbsumme, aber nur Werte größer 0
05.02.2022 11:22:14
Burghard
ich möchte Zellen mit der Hintergrundfarbe 34 summieren, allerdings nur Werte größer als 0. Ich habe diese Funktion dazu:
Function FarbsummeH(Bereich As Range, Farbe As Integer)
Dim Zelle As Object
Application.Volatile
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = 34 Then
FarbsummeH = FarbsummeH + Zelle
End If
Next
End Function
Im Prinzip funktioniert die Sache, aber ich möchte für die Spalte "C" (mit positiven und negativen Werten) halt nur Werte größer als 0 summieren und das klappt nicht.
Hilfe wäre nett.
Grüße
Burghard