Herbers Excel-Forum - das Archiv

Import von Text (besonderes Format)

Bild

Betrifft: Import von Text (besonderes Format)
von: PatrickS
Geschrieben am: 03.11.2003 08:09:21
Hallo,

ich möchte im EXCEL eine Textdatei importieren, welche mir folgendes Problem bereitet.
Das Textfile sieht ungefähr so aus:

Name des Artikels1; Nummer des Artikels1 (Zeilenumbruch)
Preis des Artikels1, Gewicht des Artikels1 (Zeilenumbruch)
Name des Artikels2; Nummer des Artikels2 (Zeilenumbruch)
Preis des Artikels2, Gewicht des Artikels2 (Zeilenumbruch)
Name des Artikels3; Nummer des Artikels3 (Zeilenumbruch)
Preis des Artikels3, Gewicht des Artikels3 (Zeilenumbruch)

Beim normalen Ímportieren schreibt Excel alles in Spalte B und zwar genau so, wie es oben beschrieben ist.

Wir kriege ich das hin, daß die zusammengehörigen Daten auch in einer Zeile stehen? Es sollte im Excel so aussehen:

Name des Artikels1; Nummer des Artikels1, Preis des Artikels1, usw.
Name des Artikels2; Nummer des Artikels2, Preis des Artikels2, usw.
Name des Artikels3; Nummer des Artikels3, Preis des Artikels3, usw.

Vielen Dank für eure Hilfe.

Grüße

Patrick

Bild

Betrifft: AW: Import von Text (besonderes Format)
von: Reinhard
Geschrieben am: 03.11.2003 09:01:00
Hi Patrick,
erstes Makro läuft wie von dir gewünscht. Das zweite teilt alles gleich auf vier Spalten auf.
Gruß
Reinhard



Sub t()
Dim Zeile1 As String
Dim Zeile2 As String
Dim Zeile3 As String
Dim N As Integer
Close
Open "c:\temp\patrick.txt" For Input As #1
N = 1
While Not EOF(1)
Input #1, Zeile1
Input #1, Zeile2
Input #1, Zeile3
Cells(N, 1) = Zeile1 & "," & Zeile2 & "," & Zeile3
N = N + 1
Wend
Close
End Sub





Sub t2()
Dim Zeile1 As String
Dim Zeile2 As String
Dim Zeile3 As String
Dim N As Integer
Close
Open "c:\temp\patrick.txt" For Input As #1
N = 1
While Not EOF(1)
Input #1, Zeile1
Input #1, Zeile2
Input #1, Zeile3
x = InStr(Zeile1, ";")
Cells(N, 1) = Left(Zeile1, x - 1)
Cells(N, 2) = Right(Zeile1, Len(Zeile1) - x)
Cells(N, 3) = Zeile2
Cells(N, 4) = Zeile3
N = N + 1
Wend
Close
End Sub


Bild
Excel-Beispiele zum Thema " Import von Text (besonderes Format)"
Zeichenfolgen in Zahlen nach Textimport Textimport aus Text-Datei mit Smikoli als Feldtrenner
Import aus dem Internet Textimport mit Semikolon als Feldseparator
In importierter Textdatei englische Werte in deutsche wandeln Textdatei in Tabellenblatt importieren
Nach Textimport Strings in Zahlen wandeln Textdatei nach Begriff durchsuchen und Fundzeile importieren
Diagramm exportieren und in Tabellenblatt importieren Suchbegriffe in UserForm eingeben, Fundstelle importieren