Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
332to336
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
332to336
332to336
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
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
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige