Betrifft: Split-Funktion beim Einlesen TXT-Datei
von: Andreas K
Guten Abend zusammen,
sicherlich könnt ihr mir hier bei meiner Test-Datei helfen, irgendwie bekomme ich den Split-Befehl nicht korrekt umgesetzt... Dieser scheint bei mir nicht zu klappen :(
Hier mein Code:
Option Explicit
Sub einlesen()
Dim Quelldatei As String
Dim Zeile As Integer
Dim Inhalt As String
Dim Informationen() As String
Dim i As Integer
ThisWorkbook.Worksheets("Test").Activate
Zeile = 1
Quelldatei = ThisWorkbook.Path & "\1.txt"
Open Quelldatei For Input As #1
Do While Not EOF(1)
Line Input #1, Inhalt
Informationen = Split(Inhalt, vbTab)
For i = 0 To UBound(Informationen)
ActiveSheet.Cells(Zeile, 2) = Inhalt
Next
Zeile = Zeile + 1
Loop
Close #1
End Sub
Betrifft: AW: Split-Funktion beim Einlesen TXT-Datei
von: Andreas K
Geschrieben am: 29.09.2019 20:39:30
Hier mal zwei Test-Textdateien, die ich vom SAP erstellen lassen kann:
https://www.herber.de/bbs/user/132283.txt
https://www.herber.de/bbs/user/132284.txt
Besten Dank im Voraus!!!
Betrifft: AW: Split-Funktion beim Einlesen TXT-Datei
von: Oberschlumpf
Betrifft: AW: Split-Funktion beim Einlesen TXT-Datei
von: Daniel
Geschrieben am: 29.09.2019 21:44:44
Hi
Naja innerhalb der For-Next-Schleife änderst du ja nicht die Zelle, in welche die Werte geschrieben werden, damit überschreibst du ja immer die Werte und siehst immer nur den letzten.
Das "Zeile = Zeile + 1" muss vor dem Next stehen.
Gruß Daniel
Betrifft: AW: Split-Funktion beim Einlesen TXT-Datei
von: Daniel
Betrifft: AW: Split-Funktion beim Einlesen TXT-Datei
von: Daniel
Geschrieben am: 29.09.2019 21:45:12
Hi
Naja innerhalb der For-Next-Schleife änderst du ja nicht die Zelle, in welche die Werte geschrieben werden, damit überschreibst du ja immer die Werte und siehst immer nur den letzten.
Das "Zeile = Zeile + 1" muss vor dem Next stehen.
Gruß Daniel
Betrifft: nur zur Info...
von: Werner
Betrifft: AW: nur zur Info...
von: Oberschlumpf
Geschrieben am: 30.09.2019 09:17:44
Hi Werner,
vielen Dank!!
Ciao
Thorsten