Hallo,

ich lerne gerade mit Vba zu arbeiten und bin nun auf ein Problem gestoßen, dass ich nicht gelöst bekomme.

Ich möchte 500 Textdateien in eine Tabelle importieren. Mittlerweile kann ich mehrere Dateien in eine Arbeitsmappe, aber nur in verschiedene Tabellen einlesen. 

Meine Textdateien, die ich gerne einlesen möchte sind mit einem Tab getrennt und enthalten Komma als Dezimaltrennung.Sie sehen wie folgt aus:

X_Value        Untitled     Untitled 1 
121,193623  0,283213  2,496581
121,240654  0,276879  2,486846
121,303700  0,250921  2,486390
121,339743  0,206268  2,494604
121,397768  0,191436  2,492931
121,436795  0,152809  2,493843
121,474820  0,018077  2,498559
121,499838  -0,119435 2,487911

Es gibt auch noch 23 Textzeilen über den Werten, die ich noch rausbekommen muss (erstmal nebensächlich)

Der Code basierend auf Recherche im Internet ist Folgender:

Sub einlesen()

   
    strExt = "*.txt"       
    ZuÖffnendeDatei = Application.GetOpenFilename("Textdateien (" & strExt & "), " & strExt, _
    Title:="Verzeichnisauswahl, erste Datei auswählen")
    If ZuÖffnendeDatei = False Then Exit Sub
    
    strPath = CurDir & "\"
    If strPath = "" Then
        Exit Sub
    Else
        ChDir strPath
        strFile = Dir(strPath & strExt) 
        Do While Len(strFile) > 0
            Workbooks.OpenText Filename:=strPath & strFile, DataType:=xlDelimited, _
                TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, _
                Tab:=True, Semicolon:=False, Comma:=False, _
                Space:=True, Other:=False, trailingMinusNumbers:=True
            Sheets(1).Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
           strFile = Dir() 
        Loop
    End If
End Sub


Kann mir vielleicht jemand helfen? 
Vielen Dank,
Sarah