bedingte Formatierung mit VBA
22.04.2005 11:08:00
RolfK
in einer Datei setze ich mit folgenderm Auszug aus dem Makro
With wsListe
.Cells(3, 6).FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:="=E3*(1+AbwProz)"
.Cells(3, 6).FormatConditions(1).Interior.ColorIndex = 15
.Cells(3, 6).FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _
Formula1:="=E3*(1-AbwProz)"
.Cells(3, 6).FormatConditions(2).Interior.ColorIndex = 15
.Cells(3, 6).Copy
.Range(.Cells(3, 6), .Cells(ZeileListe, 16)).PasteSpecial Paste:=xlFormats, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
eine bedingte Formatierung in Zelle F3 und kopiere diese anschließend in den gesamten Bereich. Dabei kommt es zu dem Problem, dass der Formeleintrag für die bedingte Formatierung in Zelle F3 plötzlich =E65356*(1-AbwProz), oder ähnlich heißt.
Erst wenn ich den Zellzeiter mit Actvate und select auf die Zelle F3 setzte und anschließend die Eintragungen vornehme stimmen die Einträge.
Irgendeine Idee?
Rolf
Anzeige