Thema: Anzahl von Zellen mit einer bestimmten Hintergrundfarbe ermitteln

StandardModule: basMain

Function Farbe(rng As Range, iColor As Integer) As Integer
   Dim iCounter As Integer
   Dim rngAct As Range
   For Each rngAct In rng
      If rngAct.Interior.ColorIndex = iColor Then
         iCounter = iCounter + 1
      End If
   Next rngAct
   Farbe = iCounter
End Function

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