Hallo zusammen,
Ich benötige Hilfe beim Einlesen einer .txt

Es klappt wunderbar die Datei einzulesen. ABer ich benötige eigentlich nur die ersten 25 Zeilen. 
Wie kann ich das beschrenken?

Nutze dazu folgenden befehl

Dim Zeile As Long

Do While Not EOF(1)           ' Schleife bis Dateiende
                    Line Input #1, Text      ' Text lesen
                    ActiveSheet.Cells(Zeile, 1) = Text
                    Zeile = Zeile + 1
                    Loop
                    Close #1 'Quelldatei schließen

Vielen Dank für die Hilfe