Gruppe
UDF
Problem
Wie kann ich die Summe aller Werte eines vorgegebenen Bereiches ermitteln, deren Schriftart auf kursiv gesetzt ist?
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