Gedefinieerde lijst in combobox is onvolledig

[wiki]

Ik maak met vba een gedefineerd bereik door waarden in rij 12 te kopieren en te plakken in cel h1 en daarna te sorteren op kolom (omdat Rij 12 ook lege waarden bevat)
Als ik de gefenieerde naam gebruik in een lijst met validatie dan is de lijst compleet en correct. Als ik de naam gebruik in een combobox in een userform dan wordt alleen de eerste waarde weergegeven. Heeft iemand een oplossing.

zie de bijlage voor een voorbeeld. De macro start door de knop te selecteren.

Bekijk bijlage wiki validatie en userform.xls

 

[Warme bakkertje]

Voor een combobox heb je een vertikale lijst nodig. Wis de RowSource in de eigenschappen van je combobox en zet onderstaande in code van je userform

Private Sub UserForm_Initialize()
    ComboBox1.List = Application.Transpose(Range("Afdelingen"))
End Sub

 

[wiki]

Rudi bedankt,

Ik had wel een vemoeden omdat aleen de eerste waarde weergegeven werd en de verwijzing rowsource heet, maar was hier nooit eerder tegenaan gelopen.

gr wim