VBA Code...
19.01.2004 13:18:57
Harald
ich hab mal wieder ein Problem. Ich habe jetzt diesen VBA code hinbekommen:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [(c1:d5)]) Is Nothing Then
If Target.Value = "Test" Then
Range(Cells(Target.Row, 1), Cells(Target.Row, 3)).Interior.ColorIndex = 6
Target.Offset(0, 3).Interior.ColorIndex = 6
Else
Range(Cells(Target.Row, 1), Cells(Target.Row, 3)).Interior.ColorIndex = x1None
Target.Offset(0, 3).Interior.ColorIndex = x1None
End If
End If
End Sub
Durch diesen Code der einige Felder anders farbig gestalten, wenn in diesem Feld "Test" steht. Nur mein Problem ist, das "Test" nicht eingegeben wird, sondern durch ein anderes Feld verknüpft ist. Z.B. wenn in a1 "1" steht soll in b2 gleich "test" stehen und somit auch die Farben der Felder anders gestalten.
Kann mir jemand sagen was ich da falsch gemacht hab??
MfG Harald