Gruppe
Matrix
Problem
Aus einer Tabelle mit den Spalten Artikel, Preis und Menge möchte ich die Summe aus den Produkten von Preis und Menge für bestimmte Artikel bilden.
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