Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Summieren von Werten mit gleicher Schriftfarbe

Gruppe

Summewenn

Problem

Über eine benutzerdefinierte Funktion sollen die Zellen einer vorgegebenen Schriftfarbe summiert werden. Als zweiter Parameter der Funktion wird der Farbindex der Schrift gefordert.

Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.

StandardModule: Modul1

Function SumFontColor(rng As Range, iColor As Integer) As Double
   Dim rngAct As Range
   Dim dAdd As Double
   For Each rngAct In rng.Cells
      If IsNumeric(rngAct.Value) Then
         If rngAct.Font.ColorIndex = iColor Then
            dAdd = dAdd + rngAct.Value
         End If
      End If
   Next rngAct
   SumFontColor = dAdd
End Function

Sub a()
MsgBox ActiveCell.Font.ColorIndex
End Sub