Summe bei Farben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…Berni,
so dass sich auf den 1.Blick Steves einfache Lösung nicht unbedingt anbietet. Die solltest du dann aber auch nach der BasisAnnahme von Steves Fml vereinheitlichen!
Ansonsten hätte ich noch 4 Bemerkungen:
1. Mit ZELLE.ZUORDNEN kann man keine per BedingtFormatierung erzeugten Farben ermitteln (höchstens ZahlenFormate → .Text)!
2. Ab Xl14/2010 steht die objektbildende Range-Eigenschaft .DisplayFormat dafür zV. Diese hat nahezu die gleichen Eigenschaften wie ihr MutterObjekt .Range. Man kann sie aber regulär nur mittels SubProzedur auswerten. Mit einer UDF (eigene Fkt) in einer ZellFml ist das nicht direkt möglich (Xl verhindert das absichtlich → MS-Sperre!), sondern nur per XML-Fkt AUSWERTEN oder einer auf der vbFkt Evaluate basierenden UDF wie TxEval, die einen Fml-Text mit einer solchen UDF auswertet (Umgehung dieser Sperre).
3. Es ist idR günstiger, die Formate zu ermitteln und mit einer Vorgabe zu vgln als eine spezielle UDF nur für diesen einen Zweck zu schreiben, denn Xl bringt sowohl Vgls- als auch Summierungsmöglichkeit bereits mit. Es müsste also nur die FormatErmittlung ergänzt wdn.
4. Wären die Bedingungen für die Färbung tatsächlich so verschiedenartig wie von dir ursprünglich behauptet, wäre das eine Möglichkeit, so etwas zu machen.
Mit singularen MatrixFmln:
Zeilensumme J2[:J36]: {=SUMME(MTRANS(TxEval(WECHSELN("CellColor(#)";"#";ADRESSE(ZEILE(2:2);SPALTE(B:H))))=255)*B2:H2)}
Spaltensumme B38[:H38]: {=SUMME(MTRANS(TxEval(WECHSELN("CellColor(#)";"#";ADRESSE(ZEILE(2:36);SPALTE(B:B))))=255)*B2:B36)}
Gesamtsumme J38: {=SUMME(MTRANS(TxEval(WECHSELN("CellColor(#)";"#";ADRESSE(ZEILE(2:36);SPALTE(B:H))))=255)*B2:H36)}
Alternativ wäre auch die Bildung eines diskontinuierlichen Bereichs aus diesen Zellen möglich. Die Summierung seiner Werte erfolgt dann ebenfalls mit singularen MatrixFmln:
Zeilensumme K2[:K36]: {=SUMME(NoErrRange(B2:H2;;TxEval(WECHSELN("CellColor(#)";"#";ADRESSE(ZEILE(2:2);SPALTE(B:H))))=255))}
Spaltensumme B39[:H39]: {=SUMME(NoErrRange(B2:B36;;TxEval(WECHSELN("CellColor(#)";"#";ADRESSE(ZEILE(2:36);SPALTE(B:B))))=255))}
Gesamtsumme K39: {=SUMME(NoErrRange(B2:H36;;MTRANS(TxEval(WECHSELN("CellColor(#)";"#";ADRESSE(ZEILE(2:36);SPALTE(B:H))))=255)))}
Die Spaltensummen sind in beiden Fällen die gleichen wie mit Steves Fmln.
Feedback nicht unerwünscht! Gruß, Luc :-?
„Die Intelligenzmenge ist auf diesem Planeten eine Konstante, die Bevölkerung nimmt aber zu!“ Auch deshalb informieren mit …

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread