Summe nach Zählen-Formatierung

[HKindler]

Hi GuruAD,

auch wenn du es nicht hören willst: Farben sind ein denkbar schlechtes Kriterium. Für einen Computer ist z.B. die RGB-Farbe 255,0,0 etwas völlig anderes als 254,0,0 oder 255,0,1. Und er würde mindestens zwei davon beim Summieren ignorieren. Für dich sieht das jedoch alles praktisch gleich aus und du würdest händisch alle 3 zusammenzählen. Oder ist dir aufgefallen, dass ich die RGB-Codes mit der jeweiligen Farbe eingefärbt habe und es tatsächlich 3 unterschiedliche Farben sind?

Wenn es denn unbedingt Farben sein müssen, dann nimm eine zusätzliche Spalte, in der du dein Kriterium kodierst - sei es über den Farbnamen oder eine Zahl oder... Wenn dich die Spalte stört, kannst du sie auch ausblenden. Über eine bed.Form. bringst du dann die gewünschte Farbe in die Zelle. Und mit SUMMEWENNS() kannst du mit Hilfe dieser Spalte deine Summe ziehen.

[schauan]

Hallöchen,

brauchst Du das Ergebnis statisch? Wenn nicht, kannst Du auch nach Farben filtern und z.B. über TEILERGEBNIS die sichtbaren Zellen zählen.

---

Zudem hast Du das Problem, dass eine Farbänderung keine Neuberechnung auslöst. Du müsstest nach einer Farbänderung immer F9 drücken. Auch das Ändern der Währung per Formatierung löst kein Ereignis aus ... Ggf. bekommt man es noch so hin, dass bei einer beliebigen Eingabe irgendwo die Neuberechnung der Anzahl erfolgt.

Ein Code zum Farbzählen könnte so aussehen, mit einer Zelle mit der gesuchten Farbe als zweiten Parameter

Code:

Public Function cntColor(ByRef cntRange As Range, cCol As Range) As Long
Application.Volatile
Dim Zellen As Range
For Each Zellen In cntRange
  If Zellen.Interior.Color = cCol.Interior.Color Then cntColor = cntColor + 1
Next
End Function

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D
1			welche Farbe?	3
2
3

Zelle	Formel
D1	=cntcolor(A1:A4;C1)

Verwendete Systemkomponenten: [Windows (64-bit) NT 10.00] / MS Excel 365

Diese Tabelle wurde mit Tab2Html (v2.7.2) erstellt. ©Gerd alias Bamberg