Makro verändern
22.03.2022 17:24:21
Michael
habe dieses Makro von Rudi als Unterstützung erhalten.
Läuft einwandfrei !
Private Sub Alle_Ordner_einlesen()
Dim oFS As Object, oFldr As Object, oSubFldr As Object, oFile As Object
Dim lRow As Long
lRow = 3
Set oFS = CreateObject("scripting.filesystemobject")
Set oFldr = oFS.GetFolder(Range("C2"))
For Each oSubFldr In oFldr.SubFolders
For Each oFile In oSubFldr.Files
Sheets("Explorer").Cells(lRow, 3) = oFile.Name
lRow = lRow + 1
Next oFile
Next oSubFldr
End Sub
Ich möchte gern das die letzte Belegte Zelle in Spalte "C" gewählt wird und daruntermit den Dateien anfangen zu kopieren.
herzlichen Dank im Voraus,
gr michael d