Gruppe
UDF
Bereich
Summewenn
Thema
Summieren von Werten mit gleicher Schriftfarbe
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