Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender Navigationstipps
Inhaltsverzeichnis

Import von Text (besonderes Format)

Import von Text (besonderes Format)
03.11.2003 08:09:21
PatrickS
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Import von Text (besonderes Format)
03.11.2003 09:01:00
Reinhard
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

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige