Hallo Alleskönner,
ich habe das folgende Makro im Netz gefunden. Leider funzt es nicht. VBA ist leider nun garnicht meins.
Mit der Bitte um Hilfe. Arbeite mit Excel 2003.
Dieses Makro soll alle Dateien eines bestimmten Verzeichnisses in einer Exceltabelle ausgeben. In der Zelle A1 kann der gewünschte Verzeichnis-Pfad eingegeben werden, ansonsten wird das aktuelle Verzeichnis durchsucht. Die Ausgabe kann in der aktuellen Zelle oder auch wahlweise in einer bestimmten Zelle vorgesehen werden. (von Martin Haecki)
Sub Dateiverzeichnis()
' Listet alle Dateien aus einem Verzeichnis
Pfad = Range("A1") ' Zelle mit dem Start-Pfad (hier A1)
With Application.FileSearch ' Alle Dateien suchen
.NewSearch
.LookIn = Pfad
.Filename = "*.*"
.Execute
For i = 1 To .FoundFiles.Count
' Dateien ab aktuellem Cursor in Spalten einfügen
ActiveCell.Offset(1, 0).Activate
ActiveCell = .FoundFiles(i)
' oder wahlweise in spezifizierte Zellen
' Cells(1 + i, 1) = .FoundFiles(i)
Next
' Wahlweise: Ersetzt den Pfad durch nichts (im ganzen Sheet)
Cells.Replace What:=Pfad, Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows,
MatchCase:=False
End With
End Sub
Schonmal Vorab. DANKE.
Gruß Maik
