VBA Loop thru Listbox entries ?

[David]

Is it possible in VBA to loop thru the listbox entries.
How do I detect which entry I am currently on and how do I
detect the end of the entries?

 

[losmac]

Private Sub CmdEnumListBoxVal_Click()
Dim i As Long

'for looping listbox entries
For i = 0 To Me.ListBox1.ListCount - 1
'select if You want
Me.ListBox1.Selected(i) = True
MsgBox Me.ListBox1.Column(0, i), vbOKOnly, "Item
number: " & i + 1
Next i

'current selection
i = Me.ListBox1.ListIndex
MsgBox Me.ListBox1.Column(0, i), vbOKOnly, "Item
selected: " & i + 1

'end of listbox entries
i = Me.ListBox1.ListCount - 1
MsgBox "Last row: " & i + 1, vbOKOnly, "End of list"
End Sub

 

[David]

Thanks a million!

-----Original Message-----

Private Sub CmdEnumListBoxVal_Click()
Dim i As Long

'for looping listbox entries
For i = 0 To Me.ListBox1.ListCount - 1
'select if You want
Me.ListBox1.Selected(i) = True
MsgBox Me.ListBox1.Column(0, i), vbOKOnly, "Item
number: " & i + 1
Next i

'current selection
i = Me.ListBox1.ListIndex
MsgBox Me.ListBox1.Column(0, i), vbOKOnly, "Item
selected: " & i + 1

'end of listbox entries
i = Me.ListBox1.ListCount - 1
MsgBox "Last row: " & i + 1, vbOKOnly, "End of list"
End Sub

.