How to add a header to multi-column list box in VBA userform

[JJGey]

Is it possible to add a header to each column to this list box in a userform

Here is a sample code for the list box
This code is running outside any of the office applications like Word or Excel

Code: Select all

Private Sub UserForm_Initialize()

'Add multiple Columns to a listbox
ListBox1.Clear 'Make sure the Listbox is empty
ListBox1.ColumnCount = 3 'Set the column Amount
'Fill the Listbox
ListBox1.AddItem "Row Number 1" 'Additem creates a new row
ListBox1.AddItem "Row Number 2"
ListBox1.AddItem "Row Number 3"
ListBox1.List(0, 1) = "Column 2 Row 1" 'List(x,y) X is the row number, Y the column number
ListBox1.List(0, 2) = "Column 3 Row 1"
ListBox1.List(2, 1) = "Column 2 Row 3"
ListBox1.List(2, 2) = "Column 3 Row 3"
ListBox1.List(1, 1) = "Column 2 Row 2"
ListBox1.List(1, 2) = "Column 3 Row 2"

End Sub

Here is the result of the above code

2017-04-20_7-07-00.png

[HansV]

Headers in a list box only work in Excel, and if you set the RowSource of the list box to a range of cells. Headers don't work in combination with AddItem.

You could fill range A1:C1 with headers, and A2:C5 with data, then use

ListBox1.RowSource = "Sheet1!A2:C5"

The header row is NOT included in the RowSource, but it should be located directly above the RowSource.

[JJGey]

This Code is running outside Excel and I search for solution and couldn't find

[HansV]

You cannot use headers in a userform list box outside Excel.

[JJGey]

Hans,
Thanks !

[Rama2021]

hello
no need to use columns header
instead of that you can add label and write the text header of the column on the top of each column above of listbox on userform
so you will not need to mention the column header to each column

[SpeakEasy]

You could always use a ListView instead