Zählen Sie nein. der Zelle mit einer bestimmten Farbe in einer Zeile / Spalte

Hier definiere ich eine Funktion zum Zählen einer Nr. der Zelle in einer Zeile / Spalte mit einer bestimmten Farbe,

Es ist genau wie Countif cellcolor = Color

 Funktion ColorCount (colorCell als Bereich, countRange als Bereich) Dim rCell als Bereich Dim cellCol als Ganzzahl Dim ans As Long ans = 0 cellCol = colorCell.Interior.ColorIndex Für jede rCell In countRange If rCell.Interior.ColorIndex = cellCol Then ans = ans + 1 End If Next rCell ColorCount = ans End Function 
Vorherige Artikel Nächster Artikel

Top-Tipps