additem listbox

  • Thread starter Thread starter CG Rosén
  • Start date Start date
C

CG Rosén

Good day,

Is it possible to use the AddItem method to a 2-column ListBox?
My efforts has so far resulted in the code below but now I´am stuck.

Brgds

CG Rosén
-------------------------------------------------

For i = 2 To 50

If Sheets("constants").Cells(i, 6).Value >= 1
Item1 = Sheets("constants").Cells(i, 4)
Item2 = Sheets("constants").Cells(i, 5)
UserForm2.ListBox1.AddItem Item1 ' add to column 1???
UserForm2.ListBox1.AddItem Item2 ' add to column 2???
End If
Next i
 
If Sheets("constants").Cells(i, 6).Value >= 1
Item1 = Sheets("constants").Cells(i, 4)
Item2 = Sheets("constants").Cells(i, 5)
UserForm2.ListBox1.AddItem Item1 ' add to column 1
UserForm2.ListBox1.List(Listbox1.Listcount-1,1) = Item2 ' add to column
2
End If
Next i
 
Set ColumnCount = 2

Dim i As Long

Me.ListBox1.AddItem "" 'first add item
i = Me.ListBox1.ListCount - 1 'which row after add
Me.ListBox1.Column(0, i) = "AAA" 'column 1
Me.ListBox1.Column(1, i) = "BBB" 'column 2
 
Back
Top