habe hier im Forum nachfolgendes Makro erhalten.
Ich möchte, dass die Zellen der Spalten B und F farbig markiert werden wenn ich eine Zelle der Spalte B aktiviere. Und bei Aktivierung einer Zelle der Spalte A die Farbgebung wieder verschwindet.
Klappt soweit auch gut. Habe jetzt allerdings das Problem, dass die gewünschte Färbung der dazwischen liegenden Spalten bei Aktivierung vo Zellen der Spalten A und B ebenfalls verschwinden.
Wie kann ich das verhindern?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'farbige Unterlegung der Zellen wenn Cursor in einer Zelle der Spalten 2 steht
Dim IntColor
If Target.Column = 2 Then
With Cells
.Interior.ColorIndex = xlNone
End With
IntColor = 6 'gelb
'Angabe der Spalten die farbig unterlegt werden: hier 2,6
Cells(Target.Row, 2).Interior.ColorIndex = IntColor
Cells(Target.Row, 6).Interior.ColorIndex = IntColor
End If
'Cursor in Spalte 1
If Target.Column = 1 Then
With Cells
.Interior.ColorIndex = IntColor
End With
IntColor = 1 'weiß
'Angabe der Spalten die wieder weiß werden: hier 2,6
Cells(Target.Row, 2).Interior.ColorIndex = IntColor
Cells(Target.Row, 6).Interior.ColorIndex = IntColor
End If
End Sub