Gruppe
Matrix
Bereich
Matrixfunktion
Thema
Summe aus Produkten
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.
Lösung
Mit der Arrayformel: =SUMME((Artikel=E4)*(Einzelpreis*Menge))
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