AW: bedingte Formatierung
25.06.2004 14:57:21
Josef
Hallo Roland!
Rechtsklick auf das Blattregister > Code anzeigen > in das Rechte Fenster
diesen Code kopieren.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Or Target.Count > 1 Then Exit Sub
'nur bei änderung in Spalte "A"
With Target
Select Case .Value
Case 1: Range(Cells(.Row, 2), Cells(.Row, 4)).Interior.ColorIndex = 3
Case 2: Range(Cells(.Row, 2), Cells(.Row, 4)).Interior.ColorIndex = 6
Case 3: Range(Cells(.Row, 2), Cells(.Row, 4)).Interior.ColorIndex = 4
Case 4: Range(Cells(.Row, 2), Cells(.Row, 4)).Interior.ColorIndex = 5
Case Else: Range(Cells(.Row, 2), Cells(.Row, 4)).Interior.ColorIndex = xlNone
End Select
End With
End Sub
Gruß Sepp