Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Werte in Zellen mit vorgegebener Hintergrundfarbe addieren
Gruppe
Format
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