Wenn Sie den Inhalt eines Ordners in einem Tabellenblatt aufgelistet haben möchten, können Sie das ganz bequem mit diesem Makro erledigen:

Sub Dateien_listen()
    Dim Dateiname As String, i As Integer
    Dateiname = Dir$("C:\EXCEL\*.xls")
    Do While Dateiname <> ""
        ActiveCell.Offset(i, 0) = Dateiname
        i = i + 1
        Dateiname = Dir$()
    Loop
End Sub

Das Makro trägt in der Spalte A, beginnend in Zeile 1 alle Dateien ein, die sich im Verzeichnis "C:\EXCEL\" befinden. Wenn Sie anstatt der Endung "*.xls" die Endung "*.*" verwenden, werden Ihnen alle Dateien aufgelistet.

You have no rights to post comments