Schönen Gruß in mein Lieblings-Forum,
ich lese sequentiell aus einer riesigen csv-Datei die ersten 50.000 Sätze in ein Array. Nach dem Einlesen möchte ich die Werte in ein sheet schreiben.
Dim HilfsArray(1 To 50000) As String
Dim i as long
Open Input_File For Input As #1
Do Until EOF(1)
For i = 1 To 50000
Line Input #1, TL
HilfsArray(i) = TL
Next i
Loop
Range("A1:A50000") = HilfsArray
Im Sheet wird dann aber nur der erste Satz des HilfsArray in die ersten 50.0000 Zellen der Spalte A abgelegt. Dies verstehe ich nicht, denn wenn ich das Array mit einer Schleife auslese, werden alle Zellen richtig gefüllt:
For i = 1 To 50000
Cells(i, 1) = HilfsArray(i)
Next i
Hat jemand eine Idee, wieso die Anweisung
Range("A1:A50000") = HilfsArray
bei mir immer nur HilfsArray(1) in die Zellen schreibt ?
Bin für jeden Tipp dankbar.
Herzliche Grüsse
erwin