Interior.ColorIndex = xlNone
24.01.2016 11:40:42
Peter
kann mir jemand sagen warum der Code bei
"eingbereich.Interior.ColorIndex = xlNone" hängen bleibt.
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