Gruppe
UDF
Bereich
Format
Thema
Werte in Zellen mit vorgegebener Hintergrundfarbe addieren
Problem
Wie kann ich durch eine Formel all Werte einer Tabelle addieren, deren Zelle die gleiche Hintergrundfarbe hat, wie die Zelle mit der Formel?
Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.
StandardModule: basMain
Function FarbenAddieren(rng As Range) As Double
Dim rngAct As Range
Dim dAdd As Double
For Each rngAct In rng.Cells
If rngAct.Interior.ColorIndex = _
Application.Caller.Interior.ColorIndex Then
dAdd = dAdd + rngAct.Value
End If
Next rngAct
FarbenAddieren = dAdd
End Function