Farben zählen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim Zelle As Range Dim ZählerGelb As Long Dim ZählerGrün As Long Dim FarbNrGelb As Long Dim FarbNrGrün As Long If Target.Address(0, 0) = "F3" Then FarbNrGelb = Range("L1").Interior.Color FarbNrGrün = Range("L2").Interior.Color For Each Zelle In Range("O6:AX100") If Zelle.Value "" Then If Zelle.DisplayFormat.Interior.Color = FarbNrGelb Then ZählerGelb = ZählerGelb + 1 If Zelle.DisplayFormat.Interior.Color = FarbNrGrün Then ZählerGrün = ZählerGrün + 1 End If Next Application.EnableEvents = False Range("J1").Value = ZählerGelb Range("J2").Value = ZählerGrün Application.EnableEvents = True End If End Sub

…ist ohnehin überflüssig, Fred,
denn das kann man auch per Vgl der Farben und Summieren der Ergebnisse (0 bzw 1) erledigen.
Farben aus BedingtFormatierung zählt man klassisch über die Zellen, die die jeweilige FärbeBedingung erfüllen. Sind das zu viele verschiedene für gleiche Farben, kann man auch die angezeigten Farben zählen. Das ist allerdings mit einer Fkt (UDF) komplizierter als bei DirektFarben, denn Xl lässt das dafür erforderliche Range-Eigenschaftsobjekt .DisplayFormat in ZellFmln nicht zu, was man aber umgehen kann, wenn man diese Fkt als FmlText notiert und auswertet. Das geschieht in folgd singularer MatrixFml, die in J1 eingetragen (f.L1=gelb) auch nach J2 (f.L2=grün) gezogen wdn kann:
{=SUMME(--(TxEval("CellColor("&ADRESSE(ZEILE($6:$100) ;SPALTE(O:AX);4)&")")=TxEval("CellColor(L"&ZEILE(J1)&")"))) } °
Auf J2 kommt natürlich 0 heraus, solange du die Farbe von L2 (RGB=0.255.0) nicht auf das Grün der BedingtFormatRegeln (RGB=102.255.153) änderst (auch von Daniel festgestellt).
° Beide UDFs sind unter dem Link auf TxEval zu finden.
Anmerk: Hajos sinnlose Diskussion war mal wieder typisch. FarbenZählen war noch nie eindeutig (höchstens bis XL4), schon gar nicht ab XL14/2010.
Du solltest beim Pgmmieren sinnvolle Einrückungen nutzen (Tab-Taste), Fred, sonst ist dein Pgm schwer lesbar. Außerdem kann das automatisch einstellbare Option Explicit am ModulAnfang nicht schaden.
Gruß, Luc :-?
Die universelle Befähigung zur Unfähigkeit macht jede menschliche Leistung zu einem unglaublichen Wunder. Stapps ironisches Paradoxon
Nichtsdestotrotz Durchblick verbessern mit

Beliebteste Forumthreads (12 Monate)

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread