Sub arbeitsmappen_auflisten()
    Dim strVerzeichnis As String
    Dim strDatei As String
    Dim strTyp As String
    Dim strDateiname As String
    Dim loZeile As Long
    strTyp = "*.xls"
    Application.ScreenUpdating = False
    strVerzeichnis = "C:\Dein_Verzeichnis\"
    strDateiname = Dir(strVerzeichnis & strTyp)
    loZeile = 6
    With ThisWorkbook.Worksheets("Tabelle1")
        Do While strDateiname <> ""
            .Cells(loZeile, 1) = strDateiname
            strDateiname = Dir
            loZeile = loZeile + 1
        Loop
    End With
    Application.ScreenUpdating = True
End Sub

loZeile = 6 ' Startzeile ab der die Namen eingetragen werden sollen
With ThisWorkbook.Worksheets("Tabelle1") ' in der Tabelle 1
Do While strDateiname <> "" ' mache so lange bis die letzte Datei durchlaufen ist
.Cells(loZeile, 1) = strDateiname ' schreibe in Spalte A betreffende Zeile den Dateinamen
strDateiname = Dir ' weise den nächsten Dateinamen zu
loZeile = loZeile + 1 ' erhähe den Zeilenzähler um 1
Loop ' Ende der Do...Loop Schleife
End With ' Ende der With-Anweisung
Application.ScreenUpdating = True ' Bildschirmaktualisierung ein