wenn schriftfarbe rot dann zählen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Lars,
das Beispiel enthält mehrere Fehler(quellen) :

Platziere den Code besser in einem Modul im VBA-Editor (z.B. "Modul1") anstatt im Klassenmodul des Tabellenblattes

Deklare den Code evtl. als PUBLIC : Public Function ...()

mit der Zuweisung FarbeZaehlen=Farbezaehlen+1 wird das Ergebnis bereits festgelegt, d.h. es kann immer nur 0 oder 1 als Ergebnis resultieren, da die Function mit dieser Wertzuweisung an den Funktionsnamen beendet wird !
Verwende stattdessen eine temporäre Variable (z.B. tmpVariable) zum Aufaddieren und weise dem Funktionnamen am Ende der Function diesen Wert zu : FarbeZaehlen=tmpVariable

Die Farbe der Ampeln werden in Deinem Beispiel per Bedingte Formatierung erzeugt, diese kann man nicht per Font.ColorIndex ermitteln, denn diese eigenschaft gibt nur die Farbe der Schrift der Zelle zurück, nicht aber die Farbe der Bedingten Formatierung !! - Dazu müsste man die Regeln der Bed.format. auswerten und die daraus resultierende Schriftfarbe - das ist nicht ganz einfach. Suche mal nach Beispielen im Forum

Gruß, NoNet

…(verschollener) Lars und wen's noch interessiert.
Zwar habe ich dazu schon vor fast 2 Jahren einiges auf den Server geladen, aber das ist ggf in Vergessenheit geraten bzw kennen es viele gar nicht, wie dröge Diskussionen in den letzten Wochen vermuten lassen. Das hier soll nur noch einmal dokumentieren, dass es sowohl möglich ist, alle (Zell-)Formatierungen, egal welchen Typs, auszulesen und die aktuelle zu bestimmen als auch das ConditionalFormat-Objekt so zu konditionieren, dass es auch vor Xl12 mit wesentl mehr (Teil-)Bedingungen und Formatierungen (natürl im Rahmen der überhpt möglichen) als den 3 vorgegebenen (Hpt-)Bedingungen zurechtkommen kann. Insofern war die immense Ausweitung der BedingtFormatierung unter Xl12ff gar nicht notwendig, zumal Xl/VBA alles zV stellt, was benötigt wird — man muss nur darauf kommen, was man am besten durch eigenes Nachdenken und nicht Abschreiben von Anderen erreicht. Die wissen es meist ja auch nicht besser, wovon sich jeder gern auf einschlägigen WebSites überzeugen kann. Aber wenn jemand dann gg eine richtige Einordnung üblicher Lösungen front macht, weil er/sie den Unterschied zwischen Range- u.ConditionalFormat-Objekt nicht kennt bzw meint, ihn vernachlässigen zu können, ist das weder eine saubere noch gar „wissenschaftliche”, sondern viel eher ψ-wissenschaftliche Herangehensweise.
Zur normalen BedingtFormatierung, → Regular Conditional Formatting, habe ich mit den bereits in Xl/VBA vorhandenen Mitteln 2 Methoden (es sind auch noch mehr vorstellbar) der Erweiterung desselben entwickelt, die ich in der einfacheren Variante Dynamized u.der etwas kompakt-komplexeren Expanded Conditional Formatting nenne. Auf Letzteres bezieht sich das nflgd Bsp. Auf der Basis des Regular Formatting (nämlich direkt des Range-Objekts) bewegen sich demggüber die CFPlus-analogen Angebote auf WebSites u.in Foren, die man wg ihrer VBA-Steuerung auch als Regular Formatting on Conditions bezeichnen kann. Wenn man diese Methode nicht auf die Zelle, sondern ein sie überlagerndes und mit ihr verlinktes Objekt anwendet, erhält man einen Eindruck davon wie das ConditionalFormat-Objekt (CFO) in bezug auf die Zelle fktionieren mag. Deshalb ist das unter der Bezeichnung Extended Formatting on Conditions ebenfalls in der Abb. enthalten…
Userbild

Mit einer EventProc wdn (wie bei den anderen Lösungen auch) die Farbinfos des CFO (nicht des Range-Objekts!) je nach Bedarf ausgetauscht. Wird die HptBedingg in Gänze nicht erfüllt, wird das BedingtFmt auch nicht wirksam. Die eigentl Zellfarbe selbst wird von dem allen nicht berührt — nur die, die zu sehen ist. Wie das im Einzelnen fktioniert, sollten Profis weitgehend schon den Fmln entnehmen können.
Zu den hier in Form von zellfmltauglichen udFktt angewendeten Tools bleibt noch zu sagen, dass sie ein nicht in sich geschlossenes System bilden, sondern Teil eines ganzen Fktssystems sind, das viele Tsd Zeilen Code und Erläuterungstext umfasst, hier also schon deshalb nicht angeboten wdn kann. Außerdem ist bei dem immensen Arbeits- und Innovationsaufwand, der darin steckt, sicher verständlich, dass das dann auch nicht kostenlos wäre.
Gruß Luc :-?

Beliebteste Forumthreads (12 Monate)

wenn schriftfarbe rot dann zählen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

14 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

wenn schriftfarbe rot dann zählen

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

14 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread