ich habe hier einen ganz tollen Code, der mir immer wenn ich
eine Zahl eingebe, diese Zelle mit der entspr. Farbe hinterlegt.
Läuft top !!! Wie kann ich es aber erreichen, daß wenn ich in
G 5 eine 3 ( für rot ) eingebe, mir Excel nicht die Zelle G 5 rot färbt,
sonder die Zelle B 5 ?
Bin für jeden Tipp dankbar
Viele :-) Grüße
Ralf
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Value
Case Is = 1
Target.Interior.ColorIndex = 1
Case Is = 2
Target.Interior.ColorIndex = 2
Case Is = 3
Target.Interior.ColorIndex = 3
Case Is = 4
Target.Interior.ColorIndex = 4
Case Is = 5
Target.Interior.ColorIndex = 5
Case Is = 6
Target.Interior.ColorIndex = 6
Case Is = 7
Target.Interior.ColorIndex = 7
Case Is = 8
Target.Interior.ColorIndex = 8
Case Is = 9
Target.Interior.ColorIndex = 9
Case Is = 10
Target.Interior.ColorIndex = 10
Case Is = 11
Target.Interior.ColorIndex = 11
Case Is = 12
Target.Interior.ColorIndex = 12
Case Is = 13
Target.Interior.ColorIndex = 13
Case Is = 14
Target.Interior.ColorIndex = 14
Case Is = 15
Target.Interior.ColorIndex = 15
'usw..
Case Else
Target.Interior.ColorIndex = xlNone
End Select
End Sub