Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1092to1096
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Textdatei einlesen
Mandy
Hallo,
ich habe eine Textdatei (kommt aus einem anderen System) , die will ich per Makro in eine Excel einlesen.
Die Textdatei soll als :
GETRENNT (zeichen wie z.B. Kommas oder Tab....)
AUFEINANDERFOLGENDE TRENNZEICHEN ALS EIN ZEICHEN BEHANDELN
LEERZEICHEN
eingelesen werden.
Zumindest manuell (Datei / Öffnen...) funktioniert das.
Das Problem dabei: in der Textdatei soll die allererste Zeile nicht abgeändert werden. Erst ab der zweiten gestrichelten Linie, wo die Daten anfangen, soll das Splitten losgehen und Startzeile in der Excel ist Zeile 10
Hier ist mal die Textdatei:
https://www.herber.de/bbs/user/63599.txt
und so soll das Ergebnis in Excel aussehen:
https://www.herber.de/bbs/user/63600.xls
Hoffentlich versteht mich jemand, was ich will. Weis jemand, wie man das per Makro erledigen kann ? Hilfe wäre nett.
Danke
Mandy

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Textdatei einlesen, dann splitten
03.08.2009 16:08:29
Erich
Hi Mandy,
mit dem Makrorekorder hättest du (ungefähr) das rausbekommen können:

Option Explicit
Sub Makro1()
Workbooks.OpenText Filename:="F:\Exc\w-w-w\tmp\Mandy.txt", Origin:=xlMSDOS, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
Range(Cells(2, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1)). _
TextToColumns Destination:=Range("A2"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, _
FieldInfo:=Array(Array(1, 1)), TrailingMinusNumbers:=True
Rows("1:9").Insert Shift:=xlDown
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
Danke Erich, supi :-) owT
04.08.2009 10:04:49
Mandy

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige