Gegevens oproepen vanuit een ander werkblad

[Rap261]

Goedemiddag,

Ik ben op zoek naar een macro voor de volgende optie.

In blad 1 (excel) staat een combobox met daarin twee auto merken.
Op blad 2 en 3 staan de gegevens van deze merken.

De bedoeling is dat wanneer in blad 1 via de Combobox een merk geselcteerd wordt, de gegevens uit blad 2 of 3 (afhankelijk van het gekozen merk) in hetzelfde blad 1 geplaatst wordt.

Zelf denk aan iets in deze richting maar misschien is dit wel niet de manier

Private Sub ComboBox1_Change()
    FollowLink (ComboBox1.ListIndex)
End Sub

Private Sub FollowLink(ByVal intIndex As Integer)
    Select Case intIndex
    Case 0
        show.value.worksheets("data").Range("A1")
of
    Case 0 
       Range("A1").value = worksheet("data").range("A1")
    End Select
End Sub

Als bijlage een voorbeeld van wat ik bedoel. Ik zoek hier al een tijdje naar op het forum maar kan het niet echt vinden

Wie kan mij helpen?
Alvast bedankt

 

[Rap261]

Gevonden

Na wat aanpassingen in een bestaande macro (gevonden op de forum) heb ik het resultaat wat ik wilde.

Vraag is opgelost en hieronder het script voor iemand die (ongeveer) het zelfde zoekt

Private Sub ComboBox1_Change()
    FollowLink (ComboBox1.ListIndex)
End Sub
Private Sub FollowLink(ByVal intIndex As Integer)
    Select Case intIndex
    Case 0
      Range("A1").Value = Sheets("sheet2").Range("a1")
      Range("B1").Value = Sheets("sheet2").Range("b1")
    End Select
End Sub