Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Function NameFarbe(rng As Range, _
   iColor As Integer, sName As String) As Integer
   Dim rngAct As Range
   Dim iCount As Integer
   For Each rngAct In rng.Cells
      If rngAct.Value = sName And _
         rngAct.Font.ColorIndex = iColor Then
         iCount = iCount + 1
      End If
   Next rngAct
   NameFarbe = iCount
End Function

    

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