Excel VBA display the value of first and last index of selected items on list box

[sashimee]

Hi all, this is my first time to post here!

I am helpless now, I cannot display the value of the first and last index of selected items on a list box thru MsgBox. It only displays me boolean values.

Here is the code:

x = lb2.ListIndex = 0 'get first index of listbox
MsgBox x

I'm thinking of adding .Value but I don't know where to put that code it gives me error. I appreciate your help on this.

EDIT: I just want to add that the items from the list box are dynamic.

 

[Jaafar Tribak]

Is that a multiselect Listbox ?
If so, try something along these lines:

Sub test()

    Dim i As Long, sMsg As String
    Dim sRetValues() As String
    
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            sMsg = sMsg & ListBox1.List(i) & vbCrLf
        End If
    Next i
    sRetValues = Split(sMsg, vbCrLf)
    If UBound(sRetValues) <> -1 Then
        sMsg = "First Selected Item: [" & sRetValues(0) & "]" & IIf(UBound(sRetValues) > 1, vbCrLf & _
        "Second Selected Item: [" & sRetValues(UBound(sRetValues) - 1) & "]", "")
        MsgBox sMsg
    Else
        MsgBox "No Items Selected."
    End If

End Sub

 

[sashimee]

Is that a multiselect Listbox ?
If so, try something along these lines:

Sub test()

    Dim i As Long, sMsg As String
    Dim sRetValues() As String
   
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            sMsg = sMsg & ListBox1.List(i) & vbCrLf
        End If
    Next i
    sRetValues = Split(sMsg, vbCrLf)
    If UBound(sRetValues) <> -1 Then
        sMsg = "First Selected Item: [" & sRetValues(0) & "]" & IIf(UBound(sRetValues) > 1, vbCrLf & _
        "Second Selected Item: [" & sRetValues(UBound(sRetValues) - 1) & "]", "")
        MsgBox sMsg
    Else
        MsgBox "No Items Selected."
    End If

End Sub

yes, it is multiselect listbox. Thank you! It works now. I just have to tweak some codes to align on my project.