Gruppe
UDF
Bereich
Format
Thema
Anzahl eines Namens in einer bestimmten Schriftfarbe ermitteln
Problem
Wie kann ich aus einer Tabelle alle Namen "Meier" ermitteln, deren Schriftfarbe rot ist?
Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.
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