ist es möglich den folgenden Code zu erweitern so das wenn ich eine Zelle anklicke, die Farbe _ in der entprechenden Zeile von Spalte A bis G farblich geändert wird.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("D2:D200")) Is Nothing Then
If ActiveCell.Interior.ColorIndex = 3 Then
ActiveCell.Interior.ColorIndex = 0
Else
ActiveCell.Interior.ColorIndex = 3
End If
End If
If Not Application.Intersect(Target, Range("F6:F200")) Is Nothing Then
If ActiveCell.Interior.ColorIndex = 4 Then
ActiveCell.Interior.ColorIndex = 0
Else
ActiveCell.Interior.ColorIndex = 4
End If
End If
If Not Application.Intersect(Target, Range("E6:E200")) Is Nothing Then
If ActiveCell.Interior.ColorIndex = 6 Then
ActiveCell.Interior.ColorIndex = 0
Else
ActiveCell.Interior.ColorIndex = 6
End If
End If
Cancel = True
End Sub