bedingte Formatierung - Makro
16.03.2009 20:44:51
Steven
ich habe ein Problem mit der bedingten Formatierung (mehr als 3 Bedingungen) und hoffe Ihr könnt mir weiter helfen. Das Makro unten soll im Bereich B2 bis C9 jede Zelle mit der jeweils links neben gelegenen Zelle vergleichen. Bei Steigerungen von 10 bzw. 20 Prozent soll entsprechend eingefärbt werden. Ich kann weder das Makro abspielen noch tut sich auch sonst irgendwas im Bereich B2 - C9. Woran kann das liegen ... Funktioniert dieses Makro überhaupt auch mit Funktionen ...
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B2:C9]) Is Nothing Then Exit Sub
Select Case ActiveCell
Case "B2>A2*1,2"
With ActiveCell
.Interior.ColorIndex = 4
.Font.ColorIndex = 4
End With
Case "B2>A2*1,1"
With ActiveCell
.Interior.ColorIndex = 3
.Font.ColorIndex = 3
End With
Case "B2
schöne Grüsse
Steven