VBA-Programmierung in Microsoft Excel

Summe aller kursiv geschriebenen Werte ermitteln

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 UDF und Format