Thema

Summe aller Werte gem. ComboBox-Eintrag

Gruppe

ComboBox

Problem

In Zelle D1 soll die Summe aller Werte aus Spalte B angezeigt werden, die dem Namen in der ComboBox in Spalte an entsprechen.

Lösung
Nur anhand einer Beipspielarbeitsmappe darstellbar.



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

    

Beiträge aus dem Excel-Forum zu den Themen Dialog und ComboBox