Textdateien in excel einfügen mit vba

[eta232]

Hallo,
ich möchte diverse textdateien in excel einfügen, mehrere Dateien aus einem auszuwählendem Ordner. Jede Datei soll sein eigenes Sheet bekommen und mit dateinamen benannt werden. Im Anschluss will ich aus deisen Sheets diverse zellen auslesen und in eine art tabelle auflisten (5 Werte pro datei in Zeilen nebeneinander).
Folgende Codes nutze ich bereits:

Dateien einfügen:

Code: [Auswählen]

Sub Datei_Importieren()
      Dim strFileName As String, arrDaten, arrTmp, lngR As Long, lngLast As Long
      Const cstrDelim As String = ";" 'Trennzeichen
      With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Title = "Datei wählen"
        .InitialFileName = "hier kommt pfad rein*.*"  'Pfad anpassen
        .Filters.Add "CSV-Dateien", "*.*"
        If .Show = -1 Then
          strFileName = .SelectedItems(1)
        End If
       
      End With
      If strFileName <> "" Then
        Workbooks.OpenText Filename:=strFileName, DataType:=xlDelimited, Semicolon:=True
        ActiveSheet.Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
       
      End If
     
    End Sub


und zum auslesen der Werte:

Code: [Auswählen]

Sub Daten_auslesen_neu()
    ThisWorkbook.Worksheets("Tabelle1").Range("d9") = ThisWorkbook.Worksheets("Test_06P").Range(" _
    a19")
        [d9] = Right(Range("D9"), 4)
    ThisWorkbook.Worksheets("Tabelle1").Range("b9") = ThisWorkbook.Worksheets("Test_06P").Range(" _
    a200")
        [b9] = Right(Range("b9"), 9)
    ThisWorkbook.Worksheets("Tabelle1").Range("c9") = ThisWorkbook.Worksheets("Test_06P").Range(" _
    a201")
        [c9] = Right(Range("c9"), 4)
    ThisWorkbook.Worksheets("Tabelle1").Range("e9") = ThisWorkbook.Worksheets("Test_06P").Range(" _
    a210")
        [e9] = Right(Range("e9"), 7)
       
    End Sub