VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zählen formatierter Zellen

Gruppe

Allgemein

Bereich

Zelle

Thema

Zählen formatierter Zellen

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Zelle