title image


Smiley Re: Wie CSV-Datei mit mehr als 65000 Zeilen importieren? (in mehrere Blätter?)
Hallo Martin,



das müsste so gehen



Sub Importieren()

Dim Zeile As Long, Spalte As Long

Zeile = 0

Spalte = 0

Close #1

Open "deineDatei" For Input As #1

While Not EOF(1)

Line Input #1, dummy

Zeile = Zeile + 1

If Left(dummy, 6) = "Zyklus" Or Zeile >= 65535 Or Spalte = 0 Then Zeile = 1: Spalte = Spalte + 1

Cells(Zeile, Spalte) = dummy

Wend

Close #1

End Sub





Viele Grüße



Ulrich


(Falls vorhanden:) Tabellen sind eingefügt mit Tool von Schorsch Dabbeljuh
hier sein offizieller Download-Link

(Fast) alles über Excel-Formeln ohne VBA findet man auf der Seite Excelformeln

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: