Declare and Set unknown number of variables as String

[longbow2000]

Good Day

I want to declare various strings, i.e., Str1 As String, St2, As String up to specific number , Str As String



In my code I count the number of cells with value in it:

nrLinks = WorksheetFunction.CountA(ws.Columns(1))

'Using the returned value in a loop function to obtain details, then I would like to assign a StringName:

For i = 1 To nrLinks

wsTemp.Cells(i, 1) = Left(ws.Cells(i, 1), (Application.WorksheetFunction.Find("_", ws.Cells(i, 1), 1) - 1))

Dim “Str” & i As String (or Dim Str + i As String)? (not sure about correct coding)
Set "Str" & i As wsTemp.Cells(i, 1) ? (not sure about correct coding)

Next i


' Use Str1, Str2, to last Str later in code



Thanks in advance

 

[dmt32]

Hi,
you would declare your variable as an array & size it accordingly

example

    Dim myStr()    As String
    Dim nrLinks    As Variant
    Dim i               As Long
    Dim ws           As Worksheet
    
    Set ws = ActiveSheet
    
    nrLinks = WorksheetFunction.CountA(ws.Columns(1))
    
    'size array
    ReDim myStr(1 To nrLinks)
    
    'populate array elements
    For i = 1 To nrLinks
    
        myStr(i) = ws.Cells(i, 2)
    
    Next i

Array elements can then be used as required in your code

Note I changed your variable name Str to myStr as Str as function name of the application & its use as variable best avoided

You can read more about arrays here: Using arrays (VBA)

Dave

 

[longbow2000]

100% great, thank you Dave!

 

[dmt32]

100% great, thank you Dave!

welcome glad suggestion helped & appreciate feedback

Dave