Label in Userform met gegevens ander tabblad

[cissie1]

Beste,

Ondertussen ben ik al een hele tijd op zoek naar de werking van het invullen van Labels.
Ik heb op blad 1 een aantal gegevens staan. Wanneer ik dubbelklik op het product, wil ik een schermpje krijgen met daarop de gegevens over dat product. Alleen moeten deze gegevens op een ander tabblad bij elkaar verzameld worden.

Kan iemand mij hierbij helpen?

Hierbij een voorbeeld bestand met wat ik bedoel:

Bekijk bijlage Vraag Label invoeren.xlsm

 

[HSV]

Ik heb het in een listbox gezet.

Edit:
Het tweede bestand (siccie1(1).xlsm) lijkt me nog beter geschikt om door te gaan met dubbelklikken.
Het Userform in vbModeles gezet, met de applicatie op Excel gericht i.p.v. het Userform.

Edit 2:Voeg in:

Set c = Sheets("Blad2").Columns(1).Find(trgvalue, , xlValues, xlWhole)
[COLOR="#FF0000"] If Not c Is Nothing Then[/COLOR]
For i = 1 To 6
 With .ListBox1
 If c.Offset(, i) > 0 Then
   .AddItem
   .List(.ListCount - 1, 0) = Sheets("Blad2").Cells(5, i + 1)
   .List(.ListCount - 1, 1) = Sheets("Blad2").Cells(6, i + 1)
   .List(.ListCount - 1, 2) = Sheets("Blad2").Cells(c.Row, i + 1)
   .List(.ListCount - 1, 3) = Sheets("Blad2").Cells(4, i + 1)
  End If
 End With
Next i
[COLOR="#FF0000"]End If[/COLOR]
End With
AppActivate ("Microsoft Excel") 'houdt Excel applicatie actief i.p.v. userform 1
End Sub

 

[cissie1]

Fantastisch!
Ik ga proberen deze in mijn bestand in te voegen!
Super bedankt!