Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: Modul1

Function SumFontColor(rng As Range, iColor As Integer) As Double
   Dim rngAct As Range
   Dim dAdd As Double
   For Each rngAct In rng.Cells
      If IsNumeric(rngAct.Value) Then
         If rngAct.Font.ColorIndex = iColor Then
            dAdd = dAdd + rngAct.Value
         End If
      End If
   Next rngAct
   SumFontColor = dAdd
End Function

Sub a()
MsgBox ActiveCell.Font.ColorIndex
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen UDF und Summewenn