Hallo,
nachfolgenden Makro habe ich bei der Suche hier im Forum gefunden.
Es wäre schön, wenn mir Unterstützung geboten würde.
Für meinen Anwendungsfall benötige ich in einer Afrage, die
1.) Abfrage nach dem Unterverzeichnis im dem die zu kopierenden Dateinnamen stehen (Padangabe z.B. C:\abc\excel).
2.) Abfrage nach dem Dateityp (wäre schön).
Diese Einträge sollen bei erneutem Aufruf des Makros noch eingetragen, aber zu editieren sein.
Zum Eintrag in die aktuelle Tabelle an Position C10 sollte nur der Dateinname mit Extension stehen (z.B. 12345.xls)
Sub Dateiliste_Öffnen()
    Dim strVerzeichnis As String
    Dim StrDatei As String
    Dim I As Integer
    Dim StrTyp As String
    Dim Dateiname As String
    Dim Aktuell_Datei As String
    Dim Aktuell_Register As String
    
'    Liste erstellen
    Aktuell_Datei = ActiveWorkbook.Name
    Aktuell_Register = ActiveSheet.Name
    strVerzeichnis = "D:\Eigene Dateien\Hajo\"
    StrTyp = "*.xls"
    Dateiname = Dir(strVerzeichnis & StrTyp)
    I = 3
    Do While Dateiname  ""
        Cells(I, 1).Value = strVerzeichnis & Dateiname
        I = I + 1
        Dateiname = Dir
    Loop
'    Öffnen
    For I = 3 To Cells(Rows.Count, 1).End(xlUp).Row
        Workbooks.Open FileName:=Workbooks(Aktuell_Datei).Worksheets(Aktuell_Register).Cells(I, 1)
    Next I
End Sub
Für Ihre Unterstützung danke ich.
liebe Grüsse
obelix