looping through a list box 1

[samantha72]

hi,

i have a list box which contains a max of 7 strings. I need to loop through this list box
and store these strings in an array. Please help. Thanks

Samantha

 

[dannyh]

something like this should do it :

Private Sub CopyToArray()

Dim myArray() As String

ReDim myArray(0 To List1.ListCount - 1) As String

For nLoop = 0 To List1.ListCount - 1
List1.ListIndex = nLoop
myArray(nLoop) = List1
Next

End Sub

 

[Toyman]

Hi There

Here is an example....
Paste a command button on a form and use the following code
This code will put the number of items in a list in an array.....

Private Sub Form_Load()
With List1
.AddItem "String 1"
.AddItem "String 2"
.AddItem "String 3"
.AddItem "String 4"
.AddItem "String 5"
End With
End Sub
Private Sub Command1_Click()
Dim arrStrings() As String
Dim sngListCounter As Single
ReDim arrStrings(List1.ListCount - 1)
For sngListCounter = 0 To List1.ListCount - 1
arrStrings(sngListCounter) = List1.List(sngListCounter)
Next sngListCounter
End Sub

Cheers
Toyman

 

[strongm]

Or think laterally, and use the ListBox from Microsoft Forms. Then you can do (using dannyh's routine as the basic model):

Private Sub CopyToArray()

Dim myArray() As Variant
ReDim myArray(0 To ListBox1.ListCount - 1) As Varianr
myArray = ListBox1.List

End Sub

(check the documentation though, as there are some minor gotchas)