Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
168to172
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
168to172
168to172
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Redim Preserve

Redim Preserve
16.10.2002 13:53:56
Dennis, Schneider
Hallo ich habe ein Problem,
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




2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Redim Preserve
16.10.2002 14:57:37
Jjoshua
hi,

ich bin mir nicht sicher, aber brauchst du nicht
um eine matrix zu 'laden' zwei for-schleifen??
etwa so??

for k = 1 to i
For j = 1 To maxCol
MYDATA(i, j) = R(j)
Next
next

Re: Redim Preserve
16.10.2002 16:14:30
Dennis Schneider
Wird bereits mit der Do while EOF Schleife erledigt.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige