Combobox die gegevens uit een ander blad moet halen

[KenRub]

Hoi,

ik probeer via een macro via een userform een combobox met keuzelijst te creeëren met de waarden uit sheet 'kieswagen'. De gekozen waarde moet worden weggeschreven in de eerstvolgende lege cel in kolom E van sheet 'blad1'

Helaas geeft hij mij de waarden al niet weer in de combobox. Wat doe ik verkeerd?
Iemand een oplossing?

Alvast bedankt.

''Aanmaak formulier met Combobox met keuzelijst
Private Sub KiesWagen_Initialize()


WagenCombo.List = Sheets("wagenlijst").Range("h1:h3").Value

End Sub

''Macro om de gekozen waarde weg te schrijven in de eerste lege cel in kolom E in sheet 'blad1'

Sub KIES_WAGEN()


Dim KeuzeWagen As Variant


' Maak Combobox WagenCombo zichtbaar
KiesWagen.Show


' Ontvang de geselecteerde waarde uit de ComboBox
KeuzeWagen = KiesWagen.WagenCombo.Value


' Zoek de eerstvolgende lege cel in kolom E van Blad1 en schrijf de gekozen waarde van de combobox weg
Sheets("blad1").Select
Range("E" & Rows.Count).End(xlUp).Offset(1, 0).Value = KeuzeWagen


End Sub

 

[AHulpje]

Probeer het eens zo:

 

[KenRub]

Dit werkt. Bedankt.
Maar mag ik vragen wat je nu anders gedaan hebt, want ik moet nog van deze keuzelijsten maken, en in de module van de macro zie ik geen code staan

 

[AHulpje]

Kijk eens in de code van het formulier.
Maar het kan ook eenvoudiger met gegevensvalidatie:

 

[KenRub]

Bedankt! Met deze oplossingen zal ik wel aan de slag kunnen!