Code ergänzen
Lorenz
Lt untenstehenden Code wird der Inhalt einer Textdatei ausgelesen. Das Makro funktioniert ja. Wie sollte der Code lauten um das Auslesen der Textdatei dort zu beginnen, in der Zeile wo "1 " zu finden ist. Die "1 " ist mal in der dritten, dann mal wieder in der 5. (also nicht immer in derselben Zeile).
Sub Textdatei_importieren()
Dim Datei As String, sText As String, loZeile As Long, loMax_Zeile As Long
Datei = Application.GetOpenFilename("TEXT Dateien (*.txt),")
Range("A3:L64840").ClearContents
Open Datei For Input As #1
loZeile = 3
If Rows.Count > 65000 Then
loMax_Zeile = Rows.Count - 700
Else
loMax_Zeile = Rows.Count
End If
Do While Not EOF(1)
Line Input #1, sText
If loZeile Mod loMax_Zeile = 1 Then
ActiveSheet.Copy after:=ActiveSheet
ActiveSheet.Name = Worksheets.Count & ". Blatt"
loZeile = 3
End If
ActiveSheet.Cells(loZeile, 1) = sText
loZeile = loZeile + 1
Loop
Close #1
End Sub
Gruß
Lorenz
Anzeige