Aus Odner Dateinamen und Tab.blätternamen auslesen

Sub DateienAuflisten()
Dim i As Long
Dim Bereich As Range
Dim Zelle As Range
Const verz = "C:\Rechnungswesen"
ChDir verz
Sheets("Dateien").Range("A:A").ClearContents
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = False
.FileType = msoFileTypeAllFiles
.Execute
For i = 1 To .FoundFiles.Count
Sheets("Dateien").Range("A" & i) = .FoundFiles(i)
Next i
End With
Sheets("Dateien").Range("A1").Select
End Sub