Bedingte Formatierung in VBA?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Faerben() Dim lngZelle As Long For lngZelle = 1 To 500 Select Case Cells(lngZelle, 1) Case 5462 Cells(lngZelle, 1).Interior.ColorIndex = 3 Case 978 Cells(lngZelle, 1).Interior.ColorIndex = 4 ' hier weitere Case Anweisungen End Select Next lngZelle End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A10")) Is Nothing Then For Each Target In Target Select Case Target Case 5462 Target.Interior.ColorIndex = 3 Case 978 Target.Interior.ColorIndex = 4 ' hier weitere Case Anweisungen End Select Next Target End If End Sub

…Josef,
denn darüber habe ich wohl schon vor 2-3 Jahren mal was geschrieben; und außerdem sind's so sogar 8 Schriftfarben aus der []-Einstellung von 3 Zahlenfarben + 1 Textfarbe + 1 Zelltext-Grundformat (bspw für Fehlerwerte) + 3 BedingtFormate für ganz bestimmte Texte.
Was mehr als 3 BedingtFormate vor Xl12 betrifft, habe ich darüber schon seit 2010 abundzu hier mal was geschrieben (inkl Bspp, Stichwort: dynamisiertes BedingtFormat). Das fktt nahezu für beliebig viele Unterbedingungen, denn das ist der Schlüssel! Leider bin ich darauf erst 2010 gekommen und nicht schon vor 5 Jahren!
Grundgedanke: Warum kann man nicht auch die Farbe, die bei erfüllter Bedingung angezeigt wdn soll, separat per VBA bedingungsabhängig beeinflussen?
Also, wie kann man das evtl doch hinbekommen? Indem man einfach bei der Tabellengestaltung das tut, was man ohnehin tun sollte, wenn man viele farbl Markierungen unterschiedl Bedeutung in einer Tabelle verwendet → eine Legende anlegen! Da führt man dann alle Zellfarben besonderer Bedeutung nebst Erläuterung auf. Zusätzlich gibt man dazu Bedingungen in xlFml-Schreibweise an. Das kann natürl auch nur im VBA-Teil erfolgen, muss sich aber auf die farbtragenden Legendenzellen beziehen. Diese Bedingungen und mit ihnen die zugehörigen Legendenzellen sollte man so zusammenfassen, dass zu ihnen eine Hauptbedingung gebildet wdn kann, die dann in der BedingtFormatierung erscheint. Da bleibt natürlich das Limit von 3 Bedingungen bestehen, denn das kann man wirklich nicht umgehen. Aber man kann per VBA diese Bedingungen ansprechen und dabei je nachdem, welche der der Legende zugeordneten Unterbedingungen erfüllt ist, die der entsprechenden HptBedingung zugeordnete Farbe anhand der Legende wechseln (per geeigneter Ereignisprozedur wie bei den Ersatzkonstrukten). Dadurch erhält man vor Xl12 ggf lauter einzelne BedingtFormate (maximal jede Zelle anders!).
Unter Xl12ff würde das nicht mehr klappen, da hier die Änderung auf den ganzen ursprüngl zugeordneten Zellbereich übertragen wird. Gemeinerweise kann man das auch nicht durch Einzelzell-Formatierung umgehen, da Xl dann die Bereiche gleicher Formatierung automatisch zusammenfasst. Aber es gibt eine Möglichkeit, damit solche Tabellen sowohl unter Xl9-11 als auch ab Xl12 gleichermaßen fktn: Man muss bedingte Kompilierung einsetzen, um eine erst ab Xl12 verfügbare FormatCondition-Objekt-Eigenschaft, mit deren Hilfe der Gültigkeitsbereich auf die jeweilige Zelle beschränkt wdn kann, ins Pgm schreiben zu können (sonst gäbe es nämlich vor Xl12 Fehlermeldungen und nichts würde mehr laufen). Allerdings muss man die feste Konstante für die BedingtKompilierung von xlVersion zu xlVersion manuell ändern; man sollte also gleich 2 Versionen bereit halten!
Übrigens, der Vorteil ggüber den Ersatzkonstrukten, obwohl etwas komplizierter, liegt auf der Hand — man muss sich nicht um die Rückstellung der Farbveränderung bei nicht-mehr-erfüllter Bedingung kümmern, das macht dann xl ganz automatisch. ;-)
Gruß Luc :-?
PS: ZZ arbeite ich an einem Projekt, in dem so 10 verschiedene Signierungen farblich per dynBedingtFormat unterschieden wdn…

…in .FormatConditions(x).Interior.Color der betroffenen Zelle aus, Beverly,
dabei dient die TabLegende als Vorlage, ggf in max 3 Gruppen (x) angeordnet, damit dort die Farben, falls sich das jemand anders überlegt, genauso einfach bzw sogar noch einfacher als direkt in der BedingtFormatierung geändert wdn können. Ggf kann man darauf aber auch verzichten. Falls auch noch Anderes dynamisch bedingt formatiert wdn soll, ist es allerdings besser, wenn dieses in der ggf vorhandenen Legende auch in normalen BedingtFormaten erledigt wird, damit die ZellFormatierung auch wirklich ins dynBedFmt der zu formatierenden Zellen übernommen wdn kann.
Bei 10 verschiedenen Sinierungen von 0…9 benötigt man allerdings nur eine HptBedingung, falls nicht noch Anderes als nur die Zellfarbe geändert wdn soll. Wenn jetzt also bspw eine 3 in eine dynamisch bedingt zu formatierende Zelle eingetragen wird und dafür die (Hpt)Bedingung 2 vorgesehen ist, die dann (Zellwert ist) .Formula1:>=0, .Formula2: lauten könnte, und der irgendeine (Start-)Zellfarbe zugeordnet ist, damit man erst mal ganze Bereiche so formatieren kann, wird die Zellfarbe dann bei Auslösung des _Change-Ereignisses nicht direkt wie in den Standard-Ersatzlösungen, sondern in der BedingtFormatierung geändert, also hier: Target.FormatConditions(2).Interior.Color = Range("Legendenbereich").Cells(Target + 1).Interior.Color
Dabei ist Legendenbereich hier ein Vektor aus 10 Zellen mit Werten von 0-9. Das ist natürlich der einfachste Fall, aber auch am besten für die Erklärung des Prinzips geeignet. Kompliziertere Fälle setzen etwas mehr Denkarbeit voraus, sind aber idR auch möglich.
Daraus ersieht man sicher, dass es auch 20, 30, 40 und mehr solcher Signierungen sein könnten, nur begrenzt durch die Anzahl der Indexfarben der Palette.
Guten Morgen, Luc :-?

Beliebteste Forumthreads (12 Monate)

29
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

322 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bedingte Formatierung in VBA?

29 Beiträge zum Forumthread Beiträge zu diesem Forumthread

322 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

29
Beiträge zum Forumthread

Beiträge zu diesem Forumthread