Waffeldiagramm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Waffeldiagramm

22.11.2021 09:08:57

Yal

AW: Waffeldiagramm

22.11.2021 19:49:27

Franzl

AW: Waffeldiagramm

22.11.2021 20:23:28

Romeo

AW: Waffeldiagramm

23.11.2021 09:59:50

Yal

AW: Waffeldiagramm

23.11.2021 13:40:42

Romeo

AW: Waffeldiagramm

22.11.2021 20:27:18

Yal

Hallo Romeo,
die Beispieldatei war gut. Nur so könnte ich dein Problem nachvollziehen.
Es scheint, dass wenn die Werte in B4 grösser als B3 war, dann ist beim Rückkehr problematisch (oder war's umgekehrt? ach, egal :-)
Ich habe leider keine Lösung gefunden, nur einen Workarround: die Priorität wird nicht mehr geändert, nur die Prüfung:
die Regel 1 (Prio 1) basiert immer auf dem kleinste Zahl, bzw auf MIN (B3:B4) und Regel 2 (Prio2) auf dem Max.
Dann wird je nach Fall B3>B4 oder nicht (entspricht B3<=B4) wird die Farbe rot/braun jeweils Bedingung 1 oder 2 zugewiesen.
Regel sind dann "Formel zur Ermittlung ..." mit (den gesamten Bereich E8:N17 ist markiert)


=(E8

und


=(E8

Die Schalt-Makro ist dann


Sub FormatConditions_setzen()
Dim rng As Range
Const Braun = 5988448 'bitte prüfen, ob nicht rot und braun vertauscht habe
Const Rot = 3879883
With ThisWorkbook.Worksheets(1)
Set rng = .Range("E8:N17")
If .Range("B3").Value

Es soll übrigens vermiden werden, einen Sub dieselbe Name wie eine VBA-Wort ("FormatConditions") zu geben. Es könnte zu Fehler führen. Ich bevorzüge selber deutsche Gegenstand+Verben (Aktion auf was) um klarzustellen: das ist nicht VBA sondern meins.
Ich habe auch den "With" umgedreht. Wenn eine Variable (sogar mit sehr kurzem Namen) verwendet wird, mach es wenig Sinn, diese mit einem With zu kürzen. Den ellenlangen "ThisWorkbook.Worksheets(1)" wiederum schon.
VG
Yal

Hallo Franzl,
ich finde es gut, dass Du solche Beispiele nachbaust, um Excel besser zu verstehen. Weiter so.
_ Füge in D4 die Formel
=ZEILE(A1)/10+SPALTE(A1)/100
(Dein Bereich hat -zumindest in der hochgeladenen Datei- keine Werte)
_ erweitere diese Formel auf dem ganzen Bereich D4:M13.
_ markiere den Bereich und drücke Strg+Shift+1 (Standardzahl, tausender Trennzeichen und 2 Nachkommastellen)
_ den Bereich weiterhin markiert, öffnest Du den Assitent für bedingte Formatierung,
_ Unten, Regel verwalten,
_ erste Regel auswählen, Regel Verarbeiten
_ Formel in =(D4<=$B$5) ändern (weil gerade D4 die aktive Zelle in der Markierung ist)
_ Dito zweite Bedingung mit B9.
Es funktioniert erst, wenn die beide Bedingungen richtig sind. Ev. F9 (Neuberechnen, falls automatische Berechnung nicht eingeschaltet)
VG
Yal

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread