Textdatei in Exel-Tabelle einlesen u. def. anordn.

Hallo,
habe eine Textdatei die wie folgt aufgebaut ist/sein kann:
aaa1 bbb1 ccc1 ddd1
aaa2 bbb2 ccc2 ddd2
aaa3 bbb3
(Eigentliche Matrix ist um ein vielfaches größer)
Ich würde gerne diese Werte in einer bestimmten EXCEL-Tabelle untereinander und jeweils in einer Zelle aufgelistet haben.
Die Spalte in der alle Werte eingetragen werden sowie die Startzeile, sollten von mir ausgewählt werden können.
Auflistung sollte wie folgt erfolgen:
aaa1
bbb1
ccc1
ddd1
aaa2
usw
Ich bekomme es nicht hin, dass am Ende die fehlenden Werte (z.B. ccc3) erkannt werden und in Folge dessen die Auflistung beendet wird.
Schön wäre es auch wenn ich die Möglichkeit hätte die Auflistung zu Splitten und zu versetzen, so dass es z.B. wie folgt aussieht:
aaa3
bbb3
aaa1
bbb1
ccc1
ddd1
aaa2
usw
Hat jemand eine Lösung in Form eines Codes für mich?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub InportText() Dim F As Integer Dim sInhalt As String, strFilename As String Dim Werte Dim inZelle As Range On Error Resume Next Set inZelle = Application.InputBox("Bitte Zelle zur Ausgabe markieren", "Abfrage", "A1", Type:= _ 8) On Error GoTo 0 If inZelle Is Nothing Then Exit Sub strFilename = "C:\#######\Test.txt" 'Pfad & Dateiname der Textdatei anpassen F = FreeFile Open strFilename For Binary As #F sInhalt = Space$(LOF(F)) Get #F, , sInhalt Close #F sInhalt = Replace(sInhalt, vbCrLf, vbTab) Werte = Split(sInhalt, vbTab) inZelle.Resize(UBound(Werte), 1) = Application.Transpose(Werte) Set inZelle = Nothing End Sub

Hallo Vivian,
ggfs. mußt du
UBound(Werte) - K + 2
und
UBound(Werte) + 1
noch anpassen da ich mit einem array getestet habe was nicht durch Split kam.

Sub InportText()
Dim F As Long, sInhalt As String, strFilename As String, Werte, inZelle As Range
Const K As Long = 3
Const T As String = "Bitte Zelle zur Ausgabe markieren"
On Error Resume Next
Set inZelle = Application.InputBox(T, "Abfrage", "A1", Type:=8)
On Error GoTo 0
If inZelle Is Nothing Then Exit Sub
strFilename = "C:\#######\Test.txt" 'Pfad & Dateiname der Textdatei anpassen
F = FreeFile
Open strFilename For Binary As #F
sInhalt = Space$(LOF(F))
Get #F, , sInhalt
Close #F
sInhalt = Replace(sInhalt, vbCrLf, vbTab)
Werte = Split(sInhalt, vbTab)
With inZelle.Resize(UBound(Werte) + 1, 1).Offset(K, 0)
.Value = Application.Transpose(Werte)
.Cells(UBound(Werte) - K + 2, 1).Resize(K, 1).Cut inZelle
End With
Set inZelle = Nothing
End Sub

Gruß
Reinhard

Beliebteste Forumthreads (12 Monate)

Textdatei in Exel-Tabelle einlesen u. def. anordn.

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Textdatei in Exel-Tabelle einlesen u. def. anordn.

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread