Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
800to804
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
800to804
800to804
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Externe Daten Importieren aber "waagrecht"

Externe Daten Importieren aber "waagrecht"
19.09.2006 21:27:50
astis
Hallo ich habe da mal ne Frage.
Ich möchte ca. 1800 Kundennummern aus einer Textdatei importieren.
in der Textdatei stehen die Daten allerdings als Fliesstext.
Importiere ich nun die Daten übernimmt Excel nur einen gewissen Teil (eben bis zum Ende der Tabelle)
Kann man die Daten quasi auch waagrecht importieren ?

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Externe Daten Importieren aber "waagrecht"
19.09.2006 22:27:10
Peter
Hallo astis,
was verstehst du unter 'Fliesstext'?
Gib bitte ein Beispiel.
In der Senkrechten verkraftet ein Tabellenblatt 65536 Einträge.
In der Waagerechten aber nur 256.
Viele Grüße Peter
AW: Externe Daten Importieren aber "waagrecht"
19.09.2006 23:32:45
astis
Hey Prima der Mann der immer einen Rat weiss... Danke nochmal wegen diesem Count.Row Code... Ich meine dass die "Namen" die eingefügt werden sollen hintereinandern nur durch ein Leerzeichen getrennt im TXT Dokument hinterlegt sind. Kopiere ich die ins Excel Blatt schreibt er mir den gesamten text zb in A1. beim importiern kann ich zwar eingeben dass jeder name ich eine extra zelle kommt da aber eben nur 256. ich würde die daten gerne aber von oben nach unten importieren und nicht von links nach rechts
Anzeige
AW: Externe Daten Importieren aber "waagrecht"
19.09.2006 23:46:54
Reinhard
Hi astis,
so:?
Option Explicit
Sub tt()
Dim Satz As String, Satz2, Zei As Long
Close
Open "C:\test\Daten.txt" For Input As #1
While Not EOF(1)
Input #1, Satz
Wend
Close
Satz2 = Split(Satz, " ")
For Zei = 0 To UBound(Satz2)
ActiveSheet.Cells(Zei + 1, 1) = Satz2(Zei)
Next Zei
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige