Combobox vullen - fout 381

[Jemp]

Beste

Onderstaande code werkt (uiteraard) perfect voor het opvullen van een combobox (hier cmbNr) .

cmbNr.List = Range("Test").Value

Range("Test") is eigenlijk een array.
Wanneer de array meerdere gegevens bevat werkt de code perfect.
Waarom krijg ik de foutmelding 381 (Kan eigenschap List niet instellen. Ongeldige index voor eigenschappen matrix) wanneer de array slechts 1 element bevat?

Groetjes
JP

 

[pasan]

Het gaat er niet om hoeveel gegevens "Test" bevat maar om hoeveel cellen

 If Range("Test").Count > 1 Then
  cmbNr.List = Range("Test").Value
   Else
  cmbNr = Range("Test").Value
 End If

 

[Jemp]

Onderstaande code doet perfect wat ik zocht

If Range("Test").Count > 1 Then
  cmbNr.List = Range("Test").Value
   Else
  cmbNr.AddItem  Range("Test").Value
  cmdNr.Value =""
 End If

Passan : bedankt voor de hint (heeft me de oplossing doen vinden).

JP