Markierte Zellen & Ergebnisse anzeigen

[Solevita]

Hallo Uwe, danke für die Anleitung. Warum muss ich es denn unbedingt in 2 Ranges aufteilen? Ich habe die Formel jetzt nur "rng" genannt und dafür alle Spalten hinterlegt.

Code:

=Tabelle1!$B$3:$B$20;Tabelle1!$C$3:$C$20;Tabelle1!$D$3:$D$20;Tabelle1!$E$3:$E$20;Tabelle1!$F$3:$F$20;Tabelle1!$G$3:$G$20;Tabelle1!$H$3:$H$20;Tabelle1!$I$3:$I$20;Tabelle1!$J$3:$J$20;Tabelle1!$K$3:$K$20;Tabelle1!$L$3:$L$20;Tabelle1!$M$3:$M$20;Tabelle1!$N$3:$N$20;Tabelle1!$O$3:$O$20;Tabelle1!$P$3:$P$20;Tabelle1!$Q$3:$Q$20;Tabelle1!$R$3:$R$20;Tabelle1!$S$3:$S$20;Tabelle1!$T$3:$T$20;Tabelle1!$U$3:$U$20

Dann habe ich den Code wie folgt angepasst:

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("rng")) 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
End Sub

Allerdings natürlich erfolglos. Ich hatte echt gedacht das ist schnell gemacht und der nächste Schritt wäre kompliziert aber ...