Excel VBA array not populating from loop

Question

Here is the code. What I am trying to do is to create an array containing all index positions of a string (named "difficultstring") where some spaces exist (the string looks like " text text text ..."):

Dim cutarray
cutarray = Array(0)

For spacething = 2 To Len(difficultstring)
    If Mid(difficultstring, spacething, 1) = " " And Mid(difficultstring, spacething - 1, 1) <> " " Then
    ReDim cutarray(UBound(cutarray) + 1)
    cutarray(UBound(cutarray)) = spacething
End If
Next spacething

But for some reason, when I try to use the cutarray array to do something later, or to display values from cutarray, it looks like there isn't any numbers in it. I checked len(cutstring) and it returned value of 43 - this means Excel tried to populate this string but no numbers were actually populated (when I pulled cutstring(0), cutstring(1), etc. nothing shows up.

Can anyone help? Thanks a lot!!!!!!!

Consider using the Preserve option

Gary's Student
– Gary's Student

2015-05-26 15:34:47 +00:00
Commented May 26, 2015 at 15:34 — Gary's Student
– Gary's Student, Commented May 26, 2015 at 15:34
Change ReDim to Redim Preserve.

Doug Glancy
– Doug Glancy

2015-05-26 15:39:22 +00:00
Commented May 26, 2015 at 15:39 — Doug Glancy
– Doug Glancy, Commented May 26, 2015 at 15:39

TMH8885 · Accepted Answer · 2015-05-26 15:39:16Z

1

You need the "Preserve" command on your ReDim statement, like @Gary's Student referenced. Try:

ReDim Preserve cutarray(UBound(cutarray) + 1)

answered May 26, 2015 at 15:39

TMH8885

8886 silver badges15 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Excel VBA array not populating from loop

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related