Get Selected items from Listbox (main sheet) and display it in a listbox on Userform - VBA

Question

I am trying to get the selected items from a listbox which is on the mainsheet and get those selected items inside a Listbox which is on a user form.

This is the Code,

Sub Viewselectshow()

 For lItem = 0 To Sheets("Main").Ent_ListBox.ListCount - 1

        If Sheets("Main").Ent_ListBox.Selected(lItem) = True Then

            ItemReq = Sheets("Main").Ent_ListBox.Selected(lItem)

            ViewSelectedEntitlements.ViewEntitlementListbox.AddItem ItemReq

        End If

    Next

ViewSelectedEntitlements.Show

End Sub

It works, But it shows a value of -1 in the Listbox on the Userform which is clearly not the Selected item. The Selected Item is a "CaraPhone". Any Suggestions, Kindly share your thoughts.

Answer 1

因此，您需要使用ItemReq = Sheets("Main").Ent_ListBox.List(lItem)而不是ItemReq = Sheets("Main").Ent_ListBox.Selected(lItem)