Zeilen verschieden makieren
12.05.2005 12:18:27
Leila
ich hab einen vba-code der, wenn ich in eine bestimmte zelle ein "x" setze, die ganze zeile in einer farbe makiert. So funktioniert das auch gut.
Nun möchte ich aber, wenn ich das "x" in eine andere zelle setze, dass die ganze zeile in einer anderen farbe makiert wird, wobei die funktion des ersten "x" für alle anderen zeilen weiter gelten soll.
Hier mein vba-code:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Set Bereich = Range("C2:C20")
If Intersect(Target, Bereich) Is Nothing Then Exit Sub
Select Case Target.Value
Case "x"
Rows(Target.Row).Interior.ColorIndex = 3
Case Else
Rows(Target.Row).Interior.ColorIndex = 0
End Select
End Sub
Anzeige