Microsoft Excel

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