Private Sub Form_Load()
 
    Dim myfield() As Double
    Dim datensaetze As Integer
        datensaetze = 5
 
    ReDim myfield(datensaetze, 19)
 
 
    ' Test Array füllen
    For i = 0 To UBound(myfield)
        For j = 0 To 18
 
            myfield(i, j) = j + 1
 
        Next j
    Next i
 
    ' Array ausgeben
    For i = 0 To UBound(myfield)
        For j = 0 To 18
 
            Debug.Print myfield(i, j)
 
        Next j
    Next i
 
End Sub

Mit freundlichen Gr??en,
Andy G.