dim datensaetze as integer
datensaetze = 5
dim myfield(datensaetze,19) as double

dim myfield(1,19) as double
...
redim myfield(datensaetze,19)

Visual Basic 6.0 Grundkenntnisse und ansonsten alles rund um AutoCAD

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.

Visual Basic 6.0 Grundkenntnisse und ansonsten alles rund um AutoCAD