Zählenwenn "roter Rahmen"

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…ein per UDF ggf exakt ermitteltes aktuelles Format auf Grund der vielen weiteren zu beachtenden Gegebenheiten wie zB relative Adressierung und die daraus resultierende automatische Adressanpassung (übrigens auch bei Wiedergabe benannter Fmln auf diese Weise) uU zwischen dem Zellformat und dem des FormatCondition-Objekts, also zwischen Bedingung erfüllt und nicht erfüllt schwanken kann. Das Problem würde bei Aufruf der UDF in einer Subroutine bei gleichzeitiger Aktivierung der betroffenen Zelle entfallen.
Hinzu kommen aber inzwischen (ab Xl12) leider MS-pgmierungsbedingte Veränderungen bei den Rückgabewerten von Mehrfach- und nicht vorhandenen (Bedingt-)Formatierungen, so dass eine automatisierte Auswertung für alle Versionen noch komplizierter geworden ist, da große PgmTeile nun in Varianten (per bedingter Kompilierung) angelegt wdn müssen (wenn man nicht für jede xlVs ab 12 ein eigenes Pgm schreiben will). Das ist zwar schon wg des neuen Farbschemas erforderlich, geht hier aber noch deutlich tiefer und betrifft nicht nur die äußerlich veränderte Darstellung.
Das ist zwar alles noch beherrschbar, verursacht aber für einen einzelnen Pgmierer einen stark erhöhten Aufwand, der in keinem rationalen Verhältnis zu den Möglichkeiten von MS steht. Es ist jedenfalls unsäglich, wenn von Version zu Version nicht nur (verkraftbare) neue Objekte eingeführt wdn, sondern auch noch in bereits Vorhandenes auswertungsrelevant eingegriffen wird. Da macht das Alles irgendwann keinen Spaß mehr. Aber viell ist das ja auch die unterschwellige Absicht von MS… :-/
Gruß Luc :-?
PS: Es ist natürlich klar, dass eine „exakte“ Formatdarstellung natürlich eine Grundvoraussetzung haben muss → die Darstellung einer nur lokal vorliegenden Fml in US-Original-Notation! Hier nur soviel – das ist 1. möglich und 2. einfacher als die Mehrheit glaubt. Es gibt aber auch eine Möglichkeit, die lokale Fml direkt auszuwerten. Im Zusammenspiel mit dem speziellen BedingtFormat wird die aber beinahe komplizierter als die reine VBA-Lösung und ist auch nicht flexibel genug… ;-)

…auch der Geltungsbereich auslesen — als Range-Objekt, nicht als Adress-String, was ich zuvor nicht beachtet hatte. Dadurch lässt sich die für die Offset-Ermittlung der RelativAdressen erforderliche Anfangszelle idR aus diesem ermitteln und muss nicht separat angegeben wdn.
Da unter Xl12 (und wahrscheinlich auch den Folgeversionen) immer noch kein Erfüllungsindikator existiert, müssen die Bedingungsfmln separat überprüft wdn, indem man ggf zuvor die ermittelten Offset-Werte zur Feststellung der real für die jeweilige Parent-Zelle geltenden RelativAdressen der BedingtFmtFmln benutzt. Die idR auf die 1.Parent-/GeltungsbereichZelle bezogenen ursprgl RelativAdressen müssen gg die ermittelten ausgetauscht wdn. Die Fmln können erst danach sinnvoll evaluiert wdn. Bei der Ermittlung des real sichtbaren Zellformats können neben der lfdNr auch die FormatCondition-Eigenschaften .Priority und wie bereits erwähnt .StopIfTrue eine Rolle spielen.
Mit einer relativ einfachen und schnell geschriebenen UDF lässt sich bspw die Bedingungsfml einer Tagesleiste mit WE-Färbung wie folgt ermitteln…
Mit der MxFml {=MTRANS(GetFConForm(F6:AJ6;1;1))} wdn die BedFmtFmln dieser Kopfzeile in einer Spalte (vorläufig) als =WEEKDAY(F6,2)>5 [2/3/0/Offset(0,0)] ausgegeben, wobei die Angaben in den eckigen Klammern Typ/Priorität/StopBeiErfüllung bedeuten. Die Offset-Angabe reicht hierbei dann bis Offset(0,30). Die Argumente der UDF GetFConForm meinen…
→Arg1: Bereich, für den die BedFmtFmln ermittelt wdn sollen
→Arg2: BedNr, lfdNr der zu ermittelnden Bedingungsfml (fehlt/0 ⇒ alle)
→Arg3: NLokal, fehlt/0 ⇒ nur lokales Original, (-)1 ⇒ in US-Notation
Die UDF fktioniert (vorerst) nur für Typ2 (xlExpression ). Typ1 (xlCellValue) kann aber im Prinzip (fast) genauso behandelt wdn, wenn dessen Angaben zuvor in eine GesamtFml umgewandelt wurden ([nicht]zwischen unter Zusatz der Fktt AND [OR] – für reine LokalDarstellung natürl UND [ODER] ). Alle anderen (neuen) Typen wurden vorerst nicht berücksichtigt.
Luc :-?

Beliebteste Forumthreads (12 Monate)

	A	B	C	D
1	04.03.2013
2	04.03.2013		12:00
3	04.03.2013
4	04.03.2013		13:00
5	04.03.2013
6
7				3

verwendete Formeln
Zelle	Formel	Bereich
A1	=HEUTE()
A2	=HEUTE()
A3	=HEUTE()
A4	=HEUTE()
A5	=HEUTE()
D7	=SUMMENPRODUKT((A1:A5=HEUTE())*(C1:C5=""))

bedingte Formatierung
Zelle	Typ	Operator	Formel1	Formel2	Format	Unterstrichen	Schrift- farbe	Muster	Muster- farbe
A1:A5	1.Bed.: Formel ist		=WENN(UND(A1=HEUTE());C1="")		Test

Rahmen
		Links		Rechts		Oben		Unten
Zelle	Nr. Bed.	Linienart	Farbe	Linienart	Farbe	Linienart	Farbe	Linienart	Farbe
A1:A5	1.Bed.	durchgezogen	0	durchgezogen	0	durchgezogen	0	durchgezogen	0

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread