Gruppe
Dialog
Problem
In Zelle D1 soll die Summe aller Werte aus Spalte B angezeigt werden, die dem Namen in der ComboBox in Spalte an entsprechen.
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