как быть если полученный массив excel vba всего одно значение

[VictorM]

Здравствуйте, Уважаемые.
Получаю массив данных для комбобокс так

With Sheets("Список")
        arrЗаказОпл = .Range(.Cells(1, 2), .Cells(Rows.Count, 2).End(xlUp)).Value
    End With
ComboBox_НЗ.List = arrЗаказОпл

все работает без нареканий, но вот столкнулся со случаем, когда в массив попадает всего одно значение и тогда эта конструкция не рабюотает.
как можно и нужно здесь сделать, чтобы получить это одно значение для комбобокса?
Спасибо.

[IgorGO]

через AddItem вложить в ComboBox 1 значение

[pashulka]

ComboBox_НЗ.List = IIf(IsArray(arrЗаказОпл), arrЗаказОпл, Array(arrЗаказОпл))

[Aleksandr H.]

А если обработать ошибку, может быть?

Sub fa()
    Dim arrЗаказОпл
    On Error GoTo Errors1
    With Sheets("Список")
        arrЗаказОпл = .Range(.Cells(1, 2), .Cells(Rows.Count, 2).End(xlUp)).Value
    End With

    ComboBox1.List = arrЗаказОпл
    Exit Sub
Errors1:
    ComboBox1.Clear
    ComboBox1.AddItem arrЗаказОпл
End Sub

[VictorM]

pashulka, спасибо! все супер. Впрочем, как всегда.
Aleksandr H. спасибо за обработчик ошибки. Пригодится

[armati lepori]

Проблема "один элемент" возникает в самых разных местах. Приходится обрабатывать отдельно. Иногда блокирование ошибки. Мелочь, но напрягает!

[olegosenniy]

но ведь этого можно избежать

[pashulka]

Альтернативный вариант :

With Worksheets("Список")
     ComboBox_НЗ.List = .Range(.Cells(1, 2), .Cells(.Rows.Count, 3).End(xlUp)).Value
End With

А второй столбец - просто скрыть.
Cделать это можно, если изменить значение свойства ColumnCount = 1, либо установить ширину второго столбца = 0, например, ColumnWidths = 100;0