Hallo! Was willst du in der 4.ten Reihe habn? Das selbe auch bei der selben Selektion oder willst du nur starten, wenn du in Zeile 4 bist. Zudem passt was von der Zuordnung nicht. Du schreibst A4:ba100 aber im Code ist nur bis A100 (dein Code unten). Und Reihe ist bei dir die Spalte. Ich vermute mal, du willst Spalte A und D mit deinem Code verändern. Habe da mal einen Code untern deinen gepostet (sowie ich es vermute). SChau es dir mal an und ggf. nochmal die Frag konkretisieren. VG

'dein Code
Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Range
Dim bereich As Range
Set bereich = Range("a1:a100")
For Each i In bereich
    If i.Interior.ColorIndex <> 15 Then
        i.Interior.ColorIndex = xlColorIndexNone
    End If
Next i
If Cells(Selection.Row, 1).Interior.ColorIndex <> 10 Then
    Cells(Selection.Row, 1).Interior.ColorIndex = 17
End If

End Sub

'meine Vermutung
Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim i As Range
Dim bereich As Range
If Target.Column = 1 Then
    Set bereich = Range("a1:a100")
    For Each i In bereich
        If i.Interior.ColorIndex <> 15 Then
            i.Interior.ColorIndex = xlColorIndexNone
     End If
    Next i
    If Cells(Selection.Row, 1).Interior.ColorIndex <> 10 Then
        Cells(Selection.Row, 1).Interior.ColorIndex = 17
    End If

End If

If Target.Column = 4 Then
    Set bereich = Range("d1:d100")
    For Each i In bereich
        If i.Interior.ColorIndex <> 15 Then
            i.Interior.ColorIndex = xlColorIndexNone
        End If
    Next i
    If Cells(Selection.Row, 1).Interior.ColorIndex <> 10 Then
        Cells(Selection.Row, 1).Interior.ColorIndex = 17
    End If

End If

End Sub