VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Anzahl eines Namens in einer bestimmten Schriftfarbe ermitteln

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

    


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