get the text of the selected items in listbox

[rwahdan@gmail.com]

Hi,



I have a listbox with 15 entries, I want to get the selected items (names and not which row), how can this be done?

code I have will print out the position of the selected items not the names:

Dim varitem As Variant
Dim strsearch As String




For Each varitem In List21.ItemsSelected


strsearch = strsearch + Me.List21.ItemData(varitem)
MsgBox strsearch


Next varitem

[isladogs]

This slight modification will give you the names for selected items in the the bound column in the listbox
I've moved the message box out of the loop and replaced + with & vbCrlf

Sub Command1_Click()

Dim varitem As Variant
Dim strsearch As String


For Each varitem In List21.ItemsSelected
    strsearch = strsearch & vbCrLf & Me.List21.ItemData(varitem)
Next varitem


MsgBox strsearch, vbInformation, "Selected listbox items"


End Sub

That will give you a single message with each item selected on a separate line
Alternatively use this to print to the Immediate window

Debug.Print strSearch

[pbaldy]

If the text data is in another column of the listbox:

Me.List21.Column(x, varItem)

where x is the zero-based column number containing it.