<p>Hi, ich möchte einen VBA-Code schreiben, welcher Text-Dateien aus einem Ordner in eine Arbeitsmappe einfügt. Dabei sollen die verschiedenen Text-Dateien nebeneinander in verschiedenen Zellen stehen. Die Zeilen der Text-Dateien sollen ebenfalls in verschiedenen Zellen untereinander stehen. In meinem Code wird mir ein Laufzeitfehler 62 angezeigt. Kann mir jemand helfen?</p>

Sub TextdateienImportieren()

    Dim fso As Object
    Dim Ordner As Object
    Dim Datei As Object
    Dim Spalte As Long
    Dim Zeile As Long
    Dim Inhalt As String
    Dim Dateiname As String
    Dim ZeilenArray() As String
    
    ' Pfad zum Ordner, der die Textdateien enthält
    Dim Ordnerpfad As String
    Ordnerpfad = "Dateienpfad"
    
    ' Tabellenblatt und Startposition für den Import
    Dim Tabelle As Worksheet
    Set Tabelle = ThisWorkbook.Sheets("Tabelle1")
    Spalte = 1 ' Startspalte für den Import
    Zeile = 1 ' Startzeile für den Import
    
    ' Erstelle ein FileSystemObject, um auf den Ordner zuzugreifen
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set Ordner = fso.GetFolder(Ordnerpfad)
    
    ' Schleife durch alle Dateien im Ordner
    For Each Datei In Ordner.Files
        
        ' Prüfe, ob die Datei eine Textdatei ist (.txt)
        If Right(Datei.Name, 4) = ".txt" Then
        
            ' Öffne die Textdatei und lese den Inhalt
            Inhalt = ""
            Dateiname = Datei.Path
            Open Dateiname For Input As #1
            Inhalt = Input(LOF(1), #1)
            Close #1
            
            ' Teile den Inhalt in Zeilen auf
            ZeilenArray() = Split(Inhalt, vbCrLf)
            
            ' Füge den Inhalt in die Tabelle ein
            Tabelle.Cells(Zeile, Spalte).Value = Dateiname ' Schreibe den Dateinamen in die Zelle
            
            ' Schreibe den Inhalt der Textdatei in separate Zellen untereinander
            For i = 0 To UBound(ZeilenArray)
                Tabelle.Cells(Zeile + i + 1, Spalte).Value = ZeilenArray(i)
            Next i
            
            ' Erhöhe die Startposition für den nächsten Import
            Spalte = Spalte + 1 ' Erhöhe um 1 Spalte, um Platz für den nächsten Dateinamen zu lassen
            Zeile = 1 ' Setze die Zeile für den nächsten Import zurück
            
        End If
        
    Next Datei
    
    ' Gib Speicherplatz frei
    Set Ordner = Nothing
    Set fso = Nothing
    
End Sub