Markierte Zellen & Ergebnisse anzeigen

[Solevita]

Hallo Uwe,

danke für deine Hilfe und Geduld. Jetzt hab ich es hinbekommen. Finaler Code:

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("rng_1")) Is Nothing Then
        Rows(2).Interior.Color = xlNone
        Columns(1).Interior.Color = xlNone
        Cells(2, Target.Column).Interior.Color = vbYellow
        Cells(Target.Row, 1).Interior.Color = vbYellow
    End If
    If Not Intersect(Target, Range("rng_2")) Is Nothing Then
        Rows(2).Interior.Color = xlNone
        Columns(1).Interior.Color = xlNone
        Cells(2, Target.Column - 1).Interior.Color = vbYellow
        Cells(Target.Row, 1).Interior.Color = vbYellow
    End If
End Sub

Range 1:

Code:

=Tabelle1!$B$3:$B$20;Tabelle1!$D$3:$D$20;Tabelle1!$F$3:$F$20;Tabelle1!$H$3:$H$20;Tabelle1!$J$3:$J$20;Tabelle1!$L$3:$L$20;Tabelle1!$N$3:$N$20;Tabelle1!$P$3:$P$20;Tabelle1!$R$3:$R$20;Tabelle1!$T$3:$T$20

Range 2:

Code:

=Tabelle1!$C$3:$C$20;Tabelle1!$E$3:$E$20;Tabelle1!$G$3:$G$20;Tabelle1!$I$3:$I$20;Tabelle1!$K$3:$K$20;Tabelle1!$M$3:$M$20;Tabelle1!$O$3:$O$20;Tabelle1!$Q$3:$Q$20;Tabelle1!$S$3:$S$20;Tabelle1!$U$3:$U$20