Gruppe
UDF
Bereich
Format
Thema
Summe aller kursiv geschriebenen Werte ermitteln
Problem
Wie kann ich die Summe aller Werte eines vorgegebenen Bereiches ermitteln, deren Schriftart auf kursiv gesetzt ist?
Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.
StandardModule: basMain
Function SumItalic(rng As Range) As Double
Dim rngAct As Range
Dim dAdd As Double
For Each rngAct In rng.Cells
If IsNumeric(rngAct) Then
If rngAct.Font.Italic = True Then
dAdd = dAdd + rngAct.Value
End If
End If
Next rngAct
SumItalic = dAdd
End Function