Interior.ColorIndex = xlNone

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim z1
Dim eingbereich
If Sheets("Fahrer").Range("n1").Value = "aus" Then Exit Sub
z1 = Selection.Row
Set eingbereich = Range("c9:k1600")
eingbereich.Interior.ColorIndex = xlNone
If Application.Intersect(Selection, eingbereich) Is Nothing Then Exit Sub
Range(Cells(z1, 1), Cells(z1, 10)).Interior.ColorIndex = 36 'gelb 36
End Sub