max Größe bzw Zeilen einer CSV Datei

[Jörg Lorenz]

Hi Marcus,

Wie geht das mit Excel und mehr als 600000 Zeilen ?!

indem die Daten auf verschiedene Blätter aufgeteilt werden. ;-)

Mit VBA könnte man das ungefähr so automatisieren:

Dim varZuOeffnen As Variant
Dim lngI As Long
Dim strTxt As String

varZuOeffnen = Application.GetOpenFilename
If varZuOeffnen <> False Then
    Open varZuOeffnen For Input As #1
        lngI = 0
        Sheets.Add
        Do While Not EOF(1)
            lngI = lngI + 1
            Line Input #1, strTxt
            Cells(lngI, 1) = strTxt
            If lngI = 65536 Then
                Sheets.Add
                lngI = 0
            End If
        Loop
    Close
End If

(ungetestet)

Allerdings fürchte ich, daß das furchtbar langsam sein dürfte.

Viele Grüße

Jörg