Gruppe
Funktion
Problem
Ich habe eine Tabelle mit den Spalten Artikel und Anzahl. Ist es möglich, die Summe der Anzahl jener Artikel zu berechnen, die ein bestimmtes Wort enthalten?
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