Thema: Bedingte Formatierung per VBA / MaxPoint

Hallo zusammen,

in meiner Tabelle habe ich bisher 80 Zellen eine bedingte Formatierung zugewiesen, das habe ich sogar hinbekommen 😉:
...
With Selection.FormatConditions(1)
.MinPoint.Modify newtype:=xlConditionValueAutomaticMin
.MaxPoint.Modify newtype:=xlConditionValueNumber, newvalue:="=Auswertung!$C$7"

Bisher hat sich der Wert bei MaxPoint wie oben zu sehen auf einen Gesamtwert je Zeile in $C$7 bezogen.



Nun soll jede Spalte (hier als Beispiel E7) einen eigenen Gesamtwert (hier in D7, Summe aus E7 + E8) erhalten.
Da ich die Formatierung per Schleife auf alle Zellen übertragen möchte, dachte ich daran ActiveCell.Row und .Column
zu verwenden, aber ich bekomme es leider nicht hin, das mit Range(Cells(... anzugeben. Ein Versuch war:

.MaxPoint.Modify newtype:=xlConditionValueNumber, newvalue:=Cells(ActiveCell.Row, ActiveCell.Column - 1).FormulaLocal

Aber das funktioniert nicht.

Hat einer eine Idee ?

Besten Dank und viele Grüße
Stefan

Ja, Eine. Poste die Datei.

Was ist eigentlich daraus geworden?
https://www.herber.de/forum/archiv/1972to1976/1973584_Statischer_Bezug_auf_Datenquelle_eines_Diagramms.html#1973596

Hallo Oppawinni 😊

ich bin der Empfehlung von Beverly gefolgt und kopiere den Bereich immer eine Spalte nach Rechts.
Die aktuelle Spalte bleibt links erhalten, in diese kopiere ich die neuen Daten, und der Bezug des
Diagramms auf die Daten in dieser Spalte bleibt erhalten.

Ich bin so froh, dass es in diesem Forum so viele hilfsbereite Menschen gibt 👍🏼

Beantwortet das Deine Frage ?

Viele Grüße
Stefan