VBA - Zählen Sie die Anzahl der farbigen Zellen

Problem

Ich suche nach VBA-Code, unter dem wir den Index der letzten Zelle (vordefinierte Farbe) in einer Spaltenspalte bestimmen können.

Beispiel: Die Spalte mit den farbigen Zellen bis zur Zeile 650, wie erhält man diese 650?

Lösung

Hier ist ein kleiner Code für diesen Zweck:

 Subcolor_count () 'Für den Test verwenden wir einen gelben Hintergrund = 6 sur 20 ligne' Die letzte Zeile ist keine 30 a = Range ("A1"). Interior.ColorIndex col = CountColor_bacgroung (Range ("A1: A120"), 6) s = MsgBox ("die letzte Zelle ist:" & col, vbInformation, "line of color") Ende Unterfunktion CountColor_bacgroung (Index als Bereich, Farbe so lang) So lang Dim C als Variant Dim XX = 0 für jedes C In Plage Wenn C.Interior.ColorIndex = Color Dann X = C.Row End Wenn Next CountColor_bacgroung = X End Function 

Vielen Dank an Bidouilleu_R für diesen Tipp.