bed. Form. per VBA : äußerst merkwürdig!
27.01.2006 07:28:43
Franz
ich stoße auf was zumindest für mich äußerst Unverständliches beim Einstellen der bedingten Formatierung per VBA mit folgendem Code:
Sub varSonst_bedingt_formatieren()
ActiveSheet.Unprotect
With Range("VarSonst")
'.Select
.Interior.ColorIndex = xlNone
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=$BP2<HEUTE()"
.FormatConditions(1).Font.ColorIndex = 2
.FormatConditions(1).Interior.ColorIndex = 15
End With
End Sub
Der benamte Bereich "VarSonst" geht über 2 Spalten (BP und BQ) und 299 Zeilen (von Zeile 2 - 300), in der Spalte BP steht jeweils ein Datum, in BQ ein zugehöriger Wert.
- Mach ich das ganze händisch, markiere also den Bereich "VarSonst" mit aktivierter Zelle BP2 und trage ein "=$BP2
- UND JETZT KOMMTS: nimmt man im Code das "Select" raus UND der Cursor steht in irgendeiner Zelle der Zeile 2, dann - und nur dann - stimmt auch alles. Steht der Cursor aber in einer anderen Zeile, dann wird was Falsches eingetragen:
... steht der Cursor z.B. in Zeile 1, dann steht in der bed. Form. der Zelle "BP2" : "=$BP3
Danke schon mal und Grüße
Franz