Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Alle Zellen mit einer vorgegebenen Hintergrundfarbe zählen

Gruppe

Format

Problem

In einem anzugebenden Bereich sind alle Zellen mit einer vorgegebenen Hintergrundfarbe zu zählen.

Lösung
Über die nachfolgende benutzerdefinierte Funktion. Eingabesyntax: =countcolor(A1:C6;6)

StandardModule: Modul1

Function CountColor(rng As Range, iColor As Integer)
   Dim rngAct As Range
   Dim iCount As Integer
   For Each rngAct In rng.Cells
      If rngAct.Interior.ColorIndex = iColor And _
         Not IsEmpty(rngAct) Then
            iCount = iCount + 1
      End If
   Next rngAct
   CountColor = iCount
End Function