Fehler: Index außerhalb des gültigen Bereichs?

Dim i, j As Integer
Dim arrResults As Variant
arrResults = Array(30, 2)

For i = 0 To 29
For j = 0 To 1
arrResults(i, j) = 0
Next j
Next i

Gruß Werner