Private Sub Command1_click()
Dim i As Integer
Dim iCounter As Integer
Dim iArray() As Integer
 
For i = 1 To 10
     iCounter = iCounter + 1
     ReDim Preserve iArray(i)
     iArray(i) = iCounter
Next i
 
Debug.Print iArray(5) 'Normal doch 5 Oder
End Sub

Public Type myType
    type1 As Long
    type2 As String
End Type
 
Dim typeArray() As myType

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1