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

textdatei lesen und datenfelder splitten

textdatei lesen und datenfelder splitten
13.01.2006 12:53:06
tony.tool
Hallo, Excel Profis
ich habe ein Problem mit dem Import einer Textdatei per VBA:
ich habe Datenfelder mit varaibler Anzahl von Zeilen und Spalten. Die Datenfelder sind durch Kommas getrennt.
Wie kann ich mit einer Schleife die Datenfelder in Zellen sortieren? Wie gesagt, sind die Anzahl der Datenfelder je Zeile nicht kontant - auch innerhalb der Datei.
Bisher habe ichs geschafft, die Datei zeilenweise zu lesen und den Zeileninhalt untereinander in die Zellen der ersten Spalte einer Tabelle zu sortieren. Ich krieg´s aber nicht hin, die Daten nun noch spaltenweise zu trennen.
Die Daten sehen etwa so aus:
a,b,c,d,e,f,g
1,2,3,4,5,6
2,3,4,5,6,7,8,9,5,4
2,q,w,4,w,6,7,5,4
2,3,4
q,2,d,f,g,5,6,7,8,4,f,2,e,
Danke im voraus,
Heiko

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

Betreff
Datum
Anwender
Anzeige
AW: textdatei lesen und datenfelder splitten
13.01.2006 12:59:34
Reinhard
Hi Heiko,
Daten---TextinSpalten...
Gruß
Reinhard
ps:Das Forum lebt auch von Rückmeldungen.
AW: textdatei lesen und datenfelder splitten
13.01.2006 13:09:52
Heiko
Hallo Heiko,
Splitten du sagst es doch schon selbst:

Sub TextDatAendernNeu1()
Dim strPfad As String, strhelp As String
Dim arrOutput() As String
Dim lngI As Long
' Pfad anpassen !!!
strPfad = "H:\EXCEL\EXCEL Privat\Beispiele\Dat_Test_Dateien\130106.txt"
lngI = 1
Open strPfad For Input As #1
Do While Not EOF(1)
Line Input #1, strhelp
arrOutput = Split(strhelp, ",")
Range(Cells(lngI, 1), Cells(lngI, UBound(arrOutput) + 1)) = arrOutput
lngI = lngI + 1
Erase arrOutput
Loop
Close #1
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
Anzeige
vielen Dank!
13.01.2006 13:35:52
Heiko
Hallo,
danke für die Hilfe.
hat funktioniert.
Heiko

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige