Bed. Formatierung per VBA - wird nicht berechnet
13.07.2006 16:19:30
{Boris}
in A2:A20 stehen Werte: 2,2,2,3,3,3,5,6,6,6,7,7,4,4,4, usw.
usw.
Immmer, wenn sich der Wert ändert, soll die Hintergrundfarbe abwechseln grün oder farblos sein. Das geht mit der bed. Formatierung mit der Formel (A2 ist aktiv):
=REST(SUMME(N($A$1:$A1$A$2:$A2));2)
Mach ich das gleiche Spielchen aber aus VBA heraus, wird alles grün. Erst wenn ich händisch den Bereich markiere und die bed. Formatierung mit OK bestätige, zeigt die Formel Wirkung.
Option Explicit
Sub test()
With Range("A2:A20")
.Cells(1).Activate
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=REST(SUMME(N($A$1:$A1<>$A$2:$A2));2)"
.FormatConditions(1).Interior.ColorIndex = 4
End With
End Sub
Warum funktioniert das nicht sofort aus VBA heraus bzw. was mache ich falsch?
Grüße Boris