bedingte Formatierung
19.01.2004 11:16:52
Harald
ich hab mal wieder ein Problem mit meiner bedingten Formatierung.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("AC27:AC35")) Is Nothing Then
If Target.Value = "Test" Then Target.Offset(0, -3).Interior.ColorIndex = 6
End If
End Sub
Diesen Code habe ich in das Tabellenblatt eingegeben. Nur das Problem ist wenn einmal "Test" in diesem Feld stand, geht die Farbe nicht mehr weg wenn man nun was anderes rein schreibt. das sollte aber so sein.
kann mir jemand helfen wo dabei der fehler liegt???
MfG
Harald