Relativer Bezug bei "Bedingter Formatierung"
23.08.2005 19:32:46
Bodo
Ich möchte über VBA-Code Bedingte Formatierung einfügen, die als Formel angewendet so lautet:
1. Bedingung
=wochentag(A1)=1 (roter Hintergrund)
2.Bedingung
=wochentag(a1)=7 (grüner Hintergrund)
Über eine Makro-Aufzeichnung wird nur folgender Code mit absoluten Bezug auf eine einzige Zelle erzeugt:
FormatConditions.Add Type:=xlExpression, Formula1:="=WOCHENTAG(C4)=1"
.FormatConditions(1).Interior.ColorIndex = 3
.FormatConditions.Add Type:=xlExpression, Formula1:="=WOCHENTAG(C4)=7"
.FormatConditions(2).Interior.ColorIndex = 38
Wie kann ich einen relativen Bezug herstellen ?