Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zählen formatierter Zellen

Gruppe

Zelle

Problem

Wie kann ich die Anzahl aller mit einer vorgegebenen Zellinnenfarbe markierter Zellen eines vorgegebenen Bereiches zählen?

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

StandardModule: mHWH

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