ich versuche eine Datei mit variabler Zeilen und Spaltenbreite einzulesen. Ich bekomme aber immer bei der zweiten Neudimensionierung meines Mehrdimensionalen Feldes einen Fehler, dass der Index außerhalb des gültigen Bereiches wäre. i=2 maxcol=4. Habe meinen Code beigefügt.
Wäre nett wenn mir jemand helfen könnte.
Danke
Sub import_file(PFAD, DATEI)
Dim R As Variant
Dim MYDATA as Variant
Dim maxCol As Long
PATH=PFAD
FILE=DATEI
Close
Open PATH & FILE For Input As #1
Do Until EOF(1)
i = i + 1 'Zeilenindex
Line Input #1, strTxt
If (strTxt = "" Or strTxt = " ") Then
Erase R
R(1) = ""
intCol = 1
Else
'Bestimme Spaltenanzahl und Inhalt
intCol = 0
Do While InStr(strTxt, delimiter) > 0
intCol = intCol + 1
R(intCol) = Trim(Left(strTxt, InStr(strTxt, ";") - 1))
strTxt = Right(strTxt, Len(strTxt) - InStr(strTxt, ";"))
Loop
End If
If (intCol > maxCol) Then maxCol = intCol
ReDim Preserve MYDATA(i, maxCol)
For j = 1 To maxCol
MYDATA(i, j) = R(j)
Next
Loop
Close
End Sub