Bedingte Formatierung mit relativem Bezug
Bernhard
ich bekomme jeden Tag eine Bestandsdatei von unserem System die ich aufbereiten soll. Dazu habe ich ein Makro (mit Recorder) erstellt und das funktioniert auch soweit.
Jetzt wollen die Kollegen noch Min und Max Werte mit aufgenommen haben und das ganze auch noch farblich abgesetzt.
Aufbau der Tabelle:
|----C----|----D----|----E----|
|..Wert...|...MIN...|...MAX...|nach rechts in der Reihenfolge fortlaufend.
Für eine Zelle habe ich den Code schon hinbekommen:
Sub bedingte_formatierung()
Range("C4").Select
With Selection
.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, Formula1:="=D4"
.FormatConditions(1).Font.ColorIndex = 3
.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, Formula1:="=D4", Formula2:="=E4"
.FormatConditions(2).Font.ColorIndex = 10
.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, Formula1:="=E4"
.FormatConditions(3).Font.ColorIndex = 45
End With
End Sub
Jetzt möchte ich aber in der Range mehrere Bereiche angeben die formatiert werden sollen (C4:C8, F4:F8....). Der MIN-Wert ist immer eine Zelle weiter rechts, der MAX-Wert zwei Zellen weiter rechts vom zu formatierenden Wert in der Range-Definition.
Kann ich hier irgendwie eine relative Verknüfung verwenden oder habt ihr einen anderen Lösungsansatz?
Vielen Dank schonmal.
Gruß,
Bernhard
Anzeige