Zelll Hintergrund FArbe zählen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Werner,
ja das habe ich ja auch schon gegoogelt.
hier mal ein Code den ich von Thomas Ramel gefunden habe. Der funktioniert ja auch, allerdings nur auf eine Spalte.
Ich benötige aber eine Zählroutine in Abhängigkeit der Spalte A wenn dort weiß (nicht gelb)ist dann Addiere die Roten Farben in B


Public Function SummeWennFarbe2(Bereich As Range, SuchFarbe As Variant, _
Optional Summe_Bereich As Range) As Double
'© Thomas Ramel / 30.05.2003
'Funktion zur Anwendung von SUMMEWENN() mit Hintergrundfare als Kriterium
'Mit angegeben wird eine Zelle mit der gesuchten Hintergrundfarbe oder dem
'entprechende ColorIndex, sowie die üblichen Parameter für SUMMEWENN()
'Zur automatischen Aktualisierung im Tabellenblatt den folgenden Term
'anh ngen: +(0*JETZT()) und F9 drücken
'Also z.B. wie folgt: =SummeWennFarbe(A1;A1:A10)+(0*JETZT())
Dim intI       As Integer
Dim intColor   As Integer
Dim Summe      As Double
If IsObject(SuchFarbe) Then
intColor = SuchFarbe(1).Interior.ColorIndex
Else
intColor = SuchFarbe
End If
If Summe_Bereich Is Nothing Then Set Summe_Bereich = Bereich
For intI = 1 To Bereich.Count
If Bereich(intI).Interior.ColorIndex = intColor Then
Summe = Summe + Summe_Bereich(intI)
End If
Next intI
SummeWennFarbe = Summe
End Function

…Markus!
Zu Bernds Bsp:
1. Er wäre hier auch mit nur einer benannten Fml ausgekommen, denn Farbe kann in beiden Hilfsspalten eingesetzt wdn.
2. Andersherum würde mit 2 (entsprd einfacheren) benannten Fmln nur eine Hilfsspalte benötigt:
=UND(Farbe1=3;Farbe26) über alle Zeilen für …
Farbe1, Farbe2: =ZELLE.ZUORDNEN(63;$C1), =ZELLE.ZUORDNEN(63;$A1)
Da du aber keine Hilfsspalten verwenden willst, käme(n) tatsächlich nur ein(ig)e UDF(s) infrage, bspw diese beiden in einer singularen MatrixFml:
{=SUMME((TxEval(WECHSELN("CellColor(C#)";"#";ZEILE(1:18)))=255)*(TxEval(WECHSELN("CellColor(A#)";"#";ZEILE(1:18)))65535))}
Die UDF CellColor ermittelt die tatsächliche ZellFarbe (auch aus BedingtFormatierung) und muss wg von MS für das dabei benutzte Objekt .DisplayFormat verordneten Einschränkungen als FmlText benutzt wdn, wobei auch gleich die Zelle variiert wdn kann. Mit TxEval kann dieser Text dann ausgewertet wdn (wg Evaluate-Anwendung dann in komplexeren Fällen FmlText in US-Notation). Die beiden UDFs sind im Archiv enthalten. Falls sie trotzdem nicht gefunden wdn (RECHERCHE nach StichPktt - oberste Zeile - fktioniert zZ nicht), kann ich die Links (von anderem PC aus) b.Bed nachliefern.
Gruß, Luc :-?

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread