Markierte Zellen & Ergebnisse anzeigen

[PetrolMaxxe]

ja, das ist überhaupt kein Problem und überaus einfach. 
Ich nahm an, dass du es selbst erkennnst und ensprechend erweiterst.

ins Modul des Tabellenblattes - dann so:

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
        Cells(3, 24) = Target.Cells
        Cells(3, 25) = Target.Cells.Offset(0, 1)
    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
        Cells(3, 24) = Target.Cells.Offset(0, -1)
        Cells(3, 25) = Target.Cells
    End If
End Sub

Den 2. Range ("rng_2") legst du durch Markieren und Benennen an. Anleitung dazu gibt es jede Menge im Netz.
Gruß Uwe