hallo,
ich lasse in einem zellbereich eine bedingte formatierung per vba eintragen. anschließend wird die bedingung nicht mehr berücksichtigt, bzw. ausgeführt!!
weiß jemand rat?
gruß
franz
hallo ede,
danke für den Tipp, aber das Problem liegt wohl wo anders :-(
Problemstellung: ich will in die Zellen, praktisch als abgespeckte Version von "Inhalte einfügen", nur die bedingten Formatierungen einfügen! Diese enthalten Formelbezüge in der Form "=Oder(Wochentag(A$6)=1;Wochentag(A$6)=7)"
Dazu habe ich mir ein VBA-MAkro geschrieben welches das erledigt. Nun ist mir nach längeren Versuchen aufgefallen, dass Excel im Hintergrund die Zellbezüge willkürlich anpasst.
Beispiel:
'Auf Wochenende prüfen
sBedingung1 = "=Oder(Wochentag(A$6)=1;Wochentag(A$6)=7)"
'auf Feiertage prüfen
sBedingung2 = "=A$5=WAHR"
'Folgender Code (in abgespeckter Form) soll das erledigen
oBereich = Range("L12:Z15")
for each vCell in oBereich
vCell.FormatConditions.Delete
vCell.FormatConditions.Add Type:=xlExpression, Formula1:=sBedingung1
With vCell.FormatConditions(1).Interior
.ColorIndex = 0
.Pattern = xlGray16
End With
vCell.FormatConditions.Add Type:=xlExpression, Formula1:=sBedingung2
With vCell.FormatConditions(2).Interior
.ColorIndex = 0
.Pattern = xlGray16
End With
next
das sieht einfach aus und ist es eigentlich auch, aber, wenn ich anschließend die bedingte Formatierung der einzelnen Zellen anschaue, stehen da ganz andere Spalten drin :-((, also statt M12 steht da P12 usw.
weißt du hier veilleicht Rat?
Gruß
franz