Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Anzahl von Zellen mit einer bestimmten Hintergrundfarbe ermitteln

Gruppe

Format

Problem

Wie kann ich die Anzahl der Zellen mit einer bestimmten Hintergrundfarbe ermitteln?

Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.

StandardModule: basMain

Function Farbe(rng As Range, iColor As Integer) As Integer
   Dim iCounter As Integer
   Dim rngAct As Range
   For Each rngAct In rng
      If rngAct.Interior.ColorIndex = iColor Then
         iCounter = iCounter + 1
      End If
   Next rngAct
   Farbe = iCounter
End Function