Заполните список с массивом в vba

Question

Кто-нибудь знает, как я могу заполнить listbox от array? Я знаю только метод с:

With Tabelle1.ListBox1 
    .AddItem "Versuch" 
End With 

я хочу сделать dynamic listbox, но до сих пор не имеют ни малейшего представления.

Answer 1

Sub Listbox_Things() 

'My Listbox is called "Listbox1" and it is located on "Sheet1" 
'With the Listbox visible, F8 through this code 

    With Sheet1.ListBox1 
     .List = Split("1,2,3", ",") 
     .Clear 
     .List = Array("One", "Two", "Three") 
     .Clear 
     .List = Array(1, 2, 3) 
     .Clear 

     Dim x() As Variant 
     x = Array("One", "Two", "Three") 

     .List = x 
     .Clear 
     .List = Application.GetCustomListContents(4) 

    End With 
End Sub