Hallo Dieter,
dazu kannst Du ein kleiner Makro benutzen. Den folgenden Code kopierst Du in ein VBA-Modul Deiner Excel-Umgebung:
Sub DateinamenAuflisten()
Dim Dateiname As String, i As Integer
Dateiname = Dir$("c:\temp\*.xls")
Do While Dateiname <> ""
ActiveCell.Offset(i, 0) = Dateiname
i = i + 1
Dateiname = Dir$()
Loop
End Sub
Den Pfad mußt Du anpassen. In meinem Beispiel wird das TEMP-Verzeichnis aufgelistet.
Gruß
Thomas
|