Clever-Excel-Forum

Hallo!

Ich nutze aktuell folgendes Makro, um mehrere txt Dateien gleichzeitig in eine Excel zu importieren. 

Sub Dateneinlesen()

    x = Sheets(1).UsedRange.Rows.Count
    d = Dir("C:\txt\")
   
    Do While d <> ""
        Open "C:\txt\" & d For Input As #1
            Do While Not EOF(1)
                Line Input #1, temp
                Cells(x, 1) = Replace(temp, vbTab, ";")
                x = x + 1
            Loop
        Close #1
        d = Dir
    Loop
End Sub



Das funktioniert auch wunderbar, nur hätte ich gerne, dass er die txt Dateien nebeneinander ausspuckt, also pro Spalte eine txt Datei statt die txt Dateien untereinander darzustellen. Ich glaube, dass es eigentlich relativ einfach ist, aber dennoch komme ich nicht voran...

Vielen Dank!

Hallo,
ungetestet:

Vielen Dank, hat wunderbar funktioniert. :100:

(09.11.2020, 12:08)AlterDresdner schrieb: [ -> ]Hallo,
ungetestet:

PHP-Code:

Sub Dateneinlesen()

    d = Dir("C:\txt\")
    spalte=1
    Do While d <> ""
       x=1
        Open "C:\txt\" & d For Input As #1
            Do While Not EOF(1)
                Line Input #1, temp
                Cells(x, spalte) = Replace(temp, vbTab, ";")
                x = x + 1
            Loop
        Close #1
        d = Dir
        spalte=spalte+1
     Loop
  End Sub 


Beim ersten Versuch mit Testdateiein hat es tatsächlich wunderbar funktioniert, bei den .txt Dateien, die ich importieren möchte, tritt jedoch eine kleine bzw. große Schwierigkeit auf. Die .txt Dateien werden zwar nebeneinander angezeigt, jedoch ist jede .txt Datei in einer Zelle. Ich hätte jedoch gerne, dass eine Zeile aus der .txt Datei auch einer Zeile in der Exceltabelle entspricht.
Ist die Formel vielleicht diesbezüglich anpassbar? Oder welchen anderen zusätzlichen Schritt könnte ich gehen?
Vielen Dank!