Gruppe
UDF
Problem
Wie kann ich aus einer Tabelle alle Namen "Meier" ermitteln, deren Schriftfarbe rot ist?
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