Adding items in a Listbox with multiple columns

Question

How can I add items in a list with 2 columns? It adds the items just in the first column if I use ListBox.AddItem. I want to add items in the 2nd column too. Thanks!

GSerg · Accepted Answer · 2011-08-07 14:32:25Z

25

By using the List property.

ListBox1.AddItem "foo"
ListBox1.List(ListBox1.ListCount - 1, 1) = "bar"

answered Aug 7, 2011 at 14:32

GSerg

78.8k18 gold badges173 silver badges377 bronze badges

Sign up to request clarification or add additional context in comments.

6 Comments

Andrei Ion Over a year ago

Thanks a lot. Now if I want to get that value how can I do it? I mean to get the value in the first column I do ListBox1.Value ... bot for the 2nd column?

GSerg Over a year ago

@Andrei Ion In the same way. List is a property, works both ways.

Andrei Ion Over a year ago

Yes, I guessed that it has to be the same way but I won't know the row of the selected item... I know that the column is 1 but the row? I guess that ListBox1.ListCount-1 is the row when you add the value... how do I know what's the row when a Value is selected? Thanks a lot!

GSerg Over a year ago

@Andrei Ion The selected index is .ListIndex. Please use the object browser instead of wanderng in the dark. Press F2. Find the property and press F1.

Andrei Ion Over a year ago

Thanks. I try to use the help and it helps me a lot but sometimes I really don't know what to search and then I use stackoverflow. Anyway... thanks a lot... it really helped me!

|

Srikanth Sharma · Accepted Answer · 2016-12-29 14:42:13Z

3

There is one more way to achieve it:-

Private Sub UserForm_Initialize()
Dim list As Object
Set list = UserForm1.Controls.Add("Forms.ListBox.1", "hello", True)
With list
    .Top = 30
    .Left = 30
    .Width = 200
    .Height = 340
    .ColumnHeads = True
    .ColumnCount = 2
    .ColumnWidths = "100;100"
    .MultiSelect = fmMultiSelectExtended
    .RowSource = "Sheet1!C4:D25"
End With End Sub

Here, I am using the range C4:D25 as source of data for the columns. It will result in both the columns populated with values.

The properties are self explanatory. You can explore other options by drawing ListBox in UserForm and using "Properties Window (F4)" to play with the option values.

answered Dec 29, 2016 at 14:42

Srikanth Sharma

2,1473 gold badges21 silver badges27 bronze badges

2 Comments

FCastro Over a year ago

Not exactly the answer, but a more efficient method to add a multicolumn list.

sir KitKat Over a year ago

This only works when using VBA in combination with Excel :)

Collectives™ on Stack Overflow

Adding items in a Listbox with multiple columns

2 Answers 2

6 Comments

2 Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

6 Comments

2 Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related