Opgelost Gegevens weergeven in een ander tabblad

[jefkeh]

Hoi,
Ik heb een gegevensbestand.
Als ik in dat gegevensbestand op een unieke code klik dat ik dan op een ander tabblad alle gegevens krijg
die achter deze code hangt.
Het gegevensbestand is in werkelijkheid veel groter
Vb in bijlage
Alvast bedankt

 

[Warme bakkertje]

Ik denk niet dat dit haalbaar is zonder VBA dus hieronder een aanzetje.
Plak onderstaande code in de bladmodule van werkblad Gegevens.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, ListObjects(1).ListColumns(2).Range) Is Nothing Then
        Sheet2.Range("f3").Resize(5).Value = Application.Transpose(Target.Offset(, -1).Resize(, 5).Value)
    End If
End Sub

 

[jefkeh]

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, ListObjects(1).ListColumns(2).Range) Is Nothing Then Sheet2.Range("f3").Resize(5).Value = Application.Transpose(Target.Offset(, -1).Resize(, 5).Value) End If End Sub

 

[jefkeh]

Bedankt voor de snelle reactie en oplossing.
Geen probleem dat het met VBA moet, het is wat ik zocht.
Dank u wel

 

[AHulpje]

Zo zou het zonder VBA kunnen: