Das Archiv des Excel-Forums

Split-Funktion beim Einlesen TXT-Datei

nach unten


Betrifft: Split-Funktion beim Einlesen TXT-Datei
von: Andreas K

Geschrieben am: 29.09.2019 20:36:52

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

Geschrieben am: 30.09.2019 06:26:13
Hi Andreas,
danke für die txt-Dateien.
Anhand derer kann man schon mal erkennen, dass die Textzeilen...
...entweder gar kein Tab-Zeichen als Trenner enthalten
...nur Tab-Zeichen als Trenner enthalten
...und sowohl Leer- UND auch Tab-Zeichen als Trenner enthalten
Das heißt, man muss nach dem Einlesen jeder einzelnen Zeile diese erst mal dahingehend bereinigen, dass nur EIN eindeutiger Trenner enthalten ist, mit dessen Hilfe man dann mit der Split-Funktion weiter arbeiten kann.
Und die 2. txt-Datei sieht ja vom Inhalt her auch ganz anders aus
- anstelle von Leerzeilen gibt es "-----"-Zeilen
- einige Zeilen enthalten zudem noch mehrere |-Zeichen
All das macht die Sache nicht einfacher :-)
Ich kenne mich mit SAP nicht aus.
Aber da ja die Datenwerte in beiden txt-Dateien gleichen Typs zu sein scheinen, kann man SAP nicht so einstellen, dass die Export-Dateien (txt) vom Aufbau her gleich aussehen?
Und zum Schluss noch diese Frage:
Da ja fast jede Zeile in den txt-Dateien anders aufgebaut ist, kannst du bitte auch per Upload eine Excel-Datei zeigen, in der du alle Zeilen einer txt-Datei so eingetragen hast, wie es am Schluß aussehen soll?
Danke + Tschüss
Thorsten

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

Geschrieben am: 29.09.2019 21:45:03
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
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

Geschrieben am: 30.09.2019 08:58:25
Hallo an alle,
...da wird wohl nix mehr kommen.
Hier auch noch http://www.vba-forum.de/forum/View.aspx?ziel=53870-Split-Befehl_beim_Einlesen_TXT-Datei_nicht_m%C3%B6glich? Und da auch gelöst.
Gruß Werner

Betrifft: AW: nur zur Info...
von: Oberschlumpf
Geschrieben am: 30.09.2019 09:17:44
Hi Werner,
vielen Dank!!
Ciao
Thorsten

Excel-Beispiele zum Thema "Split-Funktion beim Einlesen TXT-Datei"

Tabellenblattnamen in ein Listenfeld einlesen download Gefilterte Daten in eine ListBox einlesen download
Einlesen von Zellinhalten in Variablen download 1000 Arbeitsblätter aus 1000 Arbeitsmappen einlesen download
Tabellenblattnamen in eine ListBox einlesen download Text aus UserForm-Textbox in Variable einlesen download
Blätter in ComboBox-Feld einlesen und auswählen download Dateinamen in Tabelle einlesen download
Namen einer Arbeitsmappe einlesen download Matrix in UserForm-ListBox einlesen download
Excel-Zellinhalte in Worddokument einlesen um per Email versenden download UserForm-TextBox-Werte über ScrollBar einlesen download
Adresstabelle in UserForm einlesen und in Adressfeld ausgeben download Blattnamen bedingt in ListBox einlesen und Blätter auswählen download
Einlesen von Spaltenköpfen in UserForm-ListBox download Einlesen des Outlook-Adressbuches in eine UserForm-ListBox download
Nur die sichtbaren Zellen eines AutoFilter-Bereiches einlesen download Werte in UserForm-ComboBox einlesen und ausgeben download
Dateinamen in TabStrip-Elemente einlesen download Mehrspaltige UserForm-ListBox füllen und aktuellen Wert einlesen download
XL-Dateien aus Haupt- und Unterverzeichnissen einlesen download Einlesen der Autokorrekturliste in eine Tabelle download
Einlesen von Arbeitsmappen in ein TreeView-Steuerelement download In Array einlesen, sortieren, auslesen download
Spalteninhalt in UserForm-TextBox mit ScrollBalken einlesen download Aus- und Einlesen der NumLock-, CapsLock und ScrollLock-Tasten download
Dateistrukturen in UserForm einlesen und Datei öffnen download Dateinamen in UserForm-ComboBox einlesen und Datei öffnen download
Wert in ComboBox einlesen, suchen, editieren, ausgeben download Liste ohne Doppelte Werte in ComboBox einlesen download
Werte ohne Doppel in UserForm einlesen und löschen download Bei Blattaktivierung Einlesen der Arbeitsblätter in ListBox download
Werte in Word-Dokument einlesen und dieses Drucken download Einlesen von Blattnamen und Zellwerten download
Textdatei mit mehr als 256 Spalten in Tabelle einlesen download Fragen aus Textdateien in UserForm-Label einlesen download
Outlook-Nachrichten in Excel-Tabellen einlesen download Über SpinButton in UserForm-TextBox einlesen download
Bei Aktivieren eines Arbeitsblattes ComboBox neu einlesen download HTML-Text einer Internetseite in eine TextBox einlesen download
Makros aus einem Standardmodul in ComboBox einlesen download Zellinhalte in MultiPage-TextBoxes einlesen download
Prozentwerte in UserForm-ComboBox einlesen download Sortieren und nur Uniques einlesen download
Tabelle in UserForm-Spreadsheet einlesen download Werte aus geschlossenen Arbeitsmappen einlesen download
Grafischen Webcounter zeilenweise einlesen download Textdateien mit einer Zeile in Tabelle einlesen download
Dateinamen einlesen, Texte editieren download