Add additional column to a listbox in form.

NoSparks · #1 06-02-2018, 03:03 PM

While you've added the third column to the array, you've omitted adding it to the listbox

Code:

'load listbox with array strings from title column
With ListBox1
    .ColumnHeads = False
    .ColumnCount = 3 'This was 2 in original
    .ColumnWidths = "150;150;150" 'This was .ColumnWidths = "50;50" in original
        For i = 0 To intLastRow
            .AddItem strList(i, 0)
            .List(ListBox1.ListCount - 1, 1) = strList(i, 1)
            .List(ListBox1.ListCount - 1, 2) = strList(i, 2)    '<~~ third column
        Next
End With

but you don't have to do it like that, this should do

Code:

'load listbox with array strings from title column
With ListBox1
    .ColumnHeads = False
    .ColumnCount = 3 'This was 2 in original
    .ColumnWidths = "150;150;150" 'This was .ColumnWidths = "50;50" in original
    .List = strList
End With

Have a look at this page, I'm sure it will be of interest.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Display an additional date column in Gantt chart	ds1	Project	4	04-17-2017 01:34 PM
This is a Userform LIstbox queston: A variable does not set to the value of a listbox	CatMan	Excel Programming	14	08-18-2014 08:14 PM
This is a Userform LIstbox queston: A variable does not set to the value of a listbox	CatMan	Excel	1	08-08-2014 09:41 AM
Using form to populate additional fields	hmccain	Word	0	12-09-2013 11:15 AM
as the return value of another column, using Listbox?	marreco	Excel Programming	1	03-27-2012 12:48 PM