---

Hej i gruppen.

Her er et program kode, som jeg ikke kan få til at virke. Nogle der kan
fortælle mig, hvorfor at jeg får

Subscript out of range ved kørsel.:)

Kode....................

Option Explicit

Private Sub Form_Load()
Dim Resuls() As String

Dim a1 As Integer
Dim a2 As Integer

ReDim Resuls(0)

For a1 = 1 To 100

For a2 = 1 To 60

ReDim Preserve Resuls(a1, a2) As String

Resuls(a1, a2) = "OK"

Next a2
Next a1

End

End Sub

Mvh
Robert

---

Robert Larsen wrote:
> Hej i gruppen.
>
> Her er et program kode, som jeg ikke kan få til at virke. Nogle der kan
> fortælle mig, hvorfor at jeg får
>
> Subscript out of range ved kørsel.:)


Det kan Visual Basic..

Kig på ReDim i hjælp:

"If you use the Reserve keyword, you can resize only the last array
dimension and you can't change the number of dimensions..."

og du prøver at gøre begge dele

/Krabsen