Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Array in Tabelle schreiben

Array in Tabelle schreiben
08.04.2009 14:15:07
eres
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
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Array in Tabelle schreiben
08.04.2009 14:26:30
Hajo_Zi
Halo Erwin,
Range(Cells(1, 1), Cells(UBound(HilfsArray()) - 1,1)) = _
WorksheetFunction.Transpose(HilfsArray())

Vielen Dank Hajo (o.T.), Funktioniert!
08.04.2009 14:32:07
eres
.
AW: Array in Tabelle schreiben
08.04.2009 14:29:08
Tino
Hallo,
versuche es mal so.

Dim HilfsArray(49000) 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 - 1) = TL
Next i
Loop
Range("A1").Resize(UBound(HilfsArray) + 1) = Application.Transpose(HilfsArray)


Gruß Tino

Anzeige
Danke Tino. Funktioniert auch (oT)
08.04.2009 14:36:05
eres
.
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige