"Semi-dynamic" array

[Jaymond Flurrie]

How do I make the following code to work? I need an array that has nothing but strings in it and has two dimensions (X rows, 5 columns). The amount of rows changes a lot, it can be one, it can be one thousand.

Sub arraytest()
    Dim sHaettavat() As String
    Dim lRow As Long

    lRow = 1 'This can be any positive integer
    sHaettavat(lRow, 1) = "0.0.1.0."
    sHaettavat(lRow, 2) = "002F_002A_"
    sHaettavat(lRow, 3) = "002F_"
    sHaettavat(lRow, 4) = "No"
    sHaettavat(lRow, 5) = "Comment"
End Sub

It gives now "Run-time error '9': Subscript out of range error"

The problem is most likely on that "Dim sHaettavat() As String" row, but how do I fix it? "Dim sHaettavat(,5) As String" doesn't work either.

Am I forced to use some kind of variant even if there's nothing but strings?

 

[Colin Legg]

Hi,

Perhaps this?

Sub arraytest()
    Dim sHaettavat() As String
    
    Dim lRow As Long
    
    lRow = 1 'This can be any positive integer
    
    ReDim sHaettavat(1 To lRow, 1 To 5) As String
    
    sHaettavat(lRow, 1) = "0.0.1.0."
    sHaettavat(lRow, 2) = "002F_002A_"
    sHaettavat(lRow, 3) = "002F_"
    sHaettavat(lRow, 4) = "No"
    sHaettavat(lRow, 5) = "Comment"
End Sub