Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Anzahl eines Namens in einer bestimmten Schriftfarbe ermitteln

Gruppe

Format

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