Excel Verzeichnisse auslisten

[DerParte]

Hallo zusammen,

wie kann ich folgenden Excel VBA Code ändern das ich 1. nicht immer in den code muss um das verzeichnis manuell zuändern, 2 das excel auch unterverzeichnisse auflistet oder einfach den pfad vor den dateinamen schreibt.

Sub DateinamenAuflisten()

Dim Dateiname As String, i As Integer
Dateiname = Dir$("c:\*.*")
Do While Dateiname <> ""
ActiveCell.Offset(i, 0) = Dateiname
i = i + 1
Dateiname = Dir$()
Loop

End Sub

 

[moquai]

Du solltest mal in den anderen Thread schauen.

Wegen Deiner anderen Frage (Code auslagern):
Das ist nicht böse gemeint, aber ich sehe, Dir fehlt schon das Grundwissen dazu.

Erst krabbeln, dann rennen.

Aber! Du könntest das Modul als *.bas exportieren und mit Notepad bearbeiten.