VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Werte in Zellen mit vorgegebener Hintergrundfarbe addieren

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

    


Beiträge aus dem Excel-Forum zu den Themen UDF und Format