Can't populate an array with selected items from listbox

**jamesdeuce** · 03-16-2014, 09:35 PM

I am trying to take selected items from a listbox and put the selected items into an array. Basically I am trying to put the selected items into a variable that I can pass to other modules. I am close but something is off. I can't tell if it's the variable declaration or the code. I've searched the internet and tried many of the options out there but none work for me. I appreciate any insight or help. Perhaps I should be doing something completely different. Thank you.

I get Run Time error 91. Object variable or with block variable not set

Here's what I have so far...

Dim x as integer
Dim i as integer
Dim myArray() as variant

x = 0
    For i = 0 To Me.lstbox1.ListCount - 1
        If Me.lstbox1.Selected(i) = True Then
            ReDim Preserve myArray(x)
            myArray(x) = lstbox1.List(i)
            x = x + 1
        End If
    Next i

**GC Excel** · 03-16-2014, 09:44 PM

Hi,

I've made some very minor changes to your code and tried it without problems :

Private Sub CommandButton1_Click()
    Dim x As Integer
    Dim i As Integer
    Dim myArray() As Variant
    
    x = 0
    For i = 0 To Me.ListBox1.ListCount - 1
        If Me.ListBox1.Selected(i) = True Then
            ReDim Preserve myArray(x)
            myArray(x) = ListBox1.List(i)
            x = x + 1
        End If
    Next i

End Sub

**jamesdeuce** · 03-16-2014, 09:57 PM

Hmmm...I tried that earlier and it didn't work...yet this time it worked...after I undeclared the ListBox1. Thank you for the quick response! I really appreciate!