farbige Zellen zählen (bed. Format.)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Werner nochmal, jetzt habe ich doch noch eine etwas knifflige Zusatzfrage:
In Spalte P habe ich ja meine bis jetzt händisch eingetragenen Datumswerte.
Wenn in Q ein "z" steht, möchte ich, dass P durch ein zweites Datum aus R ersetzt wird. Ansonsten keine Änderung.
Ich hab P mit =WENN(Q1="z";R1;P1) formatiert, soweit ok.
Problem: Ich kann in P ja nur entweder die Formel oder das bisher eingetragene Datum anzeigen.
Ich möchte weiter, dass ich nach der Datumsübernahme von R nach P in Q ein "a" und in R ein neues Datum eintragen kann, sich dann aber in P nichts ändert. Außerdem soll in P jederzeit ein beliebiges Datum eingetragen werden können.
Nochmal möglichst kurz:
WENN Q ="z" DANN kopiere Datum R nach P
WENN Q ="a" (und damit verbunden Datumsänderung in R) DANN keine Änderung in P
Muss: jederzeit beliebiges Datum in P zum Eingeben möglich, ohne dass etwas anderes geändert wird
Ist dazu VBA nötig? Wenn ja, kannst du mir dazu was sagen? Und müsste ich was beim Einstellen des VBA´s beachten, wenn schon ein VBA Code existiert, der mir die aktuelle Zeile hervorjebt?
Ich hoffe, es war verständlich. Danke schon mal.
https://www.herber.de/bbs/user/137643.xlsx

Falls du tatsächlich lieber resultierende Zellfarben zählen wolltest, Stephan,
geht das (abgesehen mal von Filterungstricks) bspw so:
1. Mit ZÄHLENWENN nur mit Hilfsspalte, weil diese Xl-Fkt ZellBereiche im 1.Argument verlangt. Die Zellfarbe kann in der Hilfsspalte so ermittelt wdn:
=TxEval("CellColor("&ADRESSE(ZEILE(P1);SPALTE(P1);4)&")")
Das Endergebnis dann so:
Rot: =ZÄHLENWENN(S$1:S$12;SUMMENPRODUKT({255.0.0};256^{0.1.2}))
Orange: =ZÄHLENWENN(S$1:S$12;SUMMENPRODUKT({255.192.0};256^{0.1.2}))
Grün: =ZÄHLENWENN(S$1:S$12;SUMMENPRODUKT({146.208.80};256^{0.1.2}))
2. Es geht aber auch ohne Hilfsspalte mit einer singularen MatrixFml:
Rot: {=SUMME(--(TxEval("CellColor(P"&ZEILE(P$1:P$12)&")")=SUMME({255.0.0}*256^{0.1.2})))}
Orange:{=SUMME(--(TxEval("CellColor(P"&ZEILE(P$1:P$12)&")")=SUMME({255.192.0}*256^{0.1.2})))}
Grün: {=SUMME(--(TxEval("CellColor(P"&ZEILE(P$1:P$12)&")")=SUMME({146.208.80}*256^{0.1.2})))}
Die RGB-Werte der fett hervorgehobenen MatrixKonstanten können der FarbAuswahlDarstellung von Xl entnommen oder ebenfalls analog ermittelt wdn (dezimaler Farbcode BGR).
Die beiden UDFs sind dabei ein Muss, CellColor zur Ermittlung des dezimalen Farbcodes, TxEval zur Auswertung dieses FmlTextes, weil die Farb-UDF nur so die µS-Barriere umgehen kann und einen Wert liefert (Link im Text).
Luc :-?

Beliebteste Forumthreads (12 Monate)

farbige Zellen zählen (bed. Format.)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

185 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

farbige Zellen zählen (bed. Format.)

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

185 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread