Gruppe
Funktion
Problem
Ich habe eine Tabelle mit einer Auflistung von Zahlen. Wie summiere ich die Zahlen, die größer als die Zahl in Zelle A1 sind?
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