Dieses Makro listet alle Dateien des angegebenen Verzeichnisses ab der aktiven Zelle auf.
Sub DateinamenAuflisten()
'Dateinamen in einem bestimmten Verzeichnis auflisten
'Die Angabe des Verzeichnises erfolgt in DOS Konvention
'Eingefügt werden die Daten ab der aktiven Zelle
Dim Dateiname As String, i As Integer
Dateiname = Dir$("c:\*.*") 'Hier Verzeichnis und Datei angeben
Do While Dateiname <> ""
ActiveCell.Offset(i, 0) = Dateiname
i = i + 1
Dateiname = Dir$()
Loop
End Sub
In diesem Beispiel werden alle Dateien im Root-Verzeichnis C:\ aufgelistet.
Anfrage per E-Mail
+49(0) 151 164 55 914
Anfrage per Kontaktformular
Hilfe-Forum
