Hallo zusammen,
der Betreff sagt ja schon vieles :-)
Ich habe ein Array mit den Abmessungen 1040850 * 5
Dieses Array möchte ich in einem Rutsch in eine Tabelle schreiben ... Dort kommen zwar 5 Spalten an ... jedoch nur knapp 60.000 Zeilen
Mein Code sieht wie folgt aus:
'Einlesen der Daten auf einen Rutsch
Open strFile For Input As #hfile
ResultStr = Input(LOF(hfile), #hfile)
Close #hfile
'Daten in Zeilen auftrennen
strImport() = Split(ResultStr, vbCrLf)
'Werte-Array dimensionieren
ReDim varValues(UBound(Split(strImport(lngRows), ";")), UBound(strImport()))
'Einzelne Zeilen in Spalten auftrennen und in Gesamt-Array ablegen
For lngRows = 0 To UBound(strImport())
varDummy = Split(strImport(lngRows), ";")
For intI = 0 To UBound(varDummy)
varValues(intI, lngRows) = varDummy(intI)
Next intI
lngRow = lngRow + 1
Next lngRows
wksT2.Range(wksT2.Cells(1, 1), wksT2.Cells(lngRow, 5)) = Application.Transpose(varValues())
Findet Ihr da einen Fehler und/oder habt einen Tipp für mich?
Vielen Dank und viele Grüße
Peter