Wie kann ich mit der aktiven Zelle die Zelle in der Aktivzeile die Zellen B bis X z.B Rot einfärben und beim verlassen wieder die Farbe wegnehmen?
Ich habe schon mit Fadenkreuz probiert und komme nicht vorwärst!
Serge
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B" & Target.Row & ":X" & Target.Row)) Is Nothing Then
Cells.Interior.ColorIndex = xlNone
Range("B" & Target.Row & ":X" & Target.Row).Interior.ColorIndex = 6
Else
Cells.Interior.ColorIndex = xlNone
End If
End Sub
oder
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B" & Target.Row & ":X" & Target.Row)) Is Nothing And Target. _
Count = 1 Then
Cells.Interior.ColorIndex = xlNone
Range("B" & Target.Row & ":X" & Target.Row).Interior.ColorIndex = 6
Else
Cells.Interior.ColorIndex = xlNone
End If
End Sub