Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Summe aller kursiv geschriebenen Werte ermitteln

Gruppe

Format

Problem

Wie kann ich die Summe aller Werte eines vorgegebenen Bereiches ermitteln, deren Schriftart auf kursiv gesetzt ist?

Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.

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