Set mainfolder = fso.GetFolder(Sheet.Cells(Pfadzeile, Pfadspalte))
Die Schleife i habe ich heute das erste Mal, vielleicht liegt es daran. Ich wüsste aber auch nicht wie es anders zu machen wäre. Beinahe vergessen, mit Application.Run reagiert das Makro auch nicht.
Bitte schaut euch doch mal den Code an. Vielleicht ist er auch schon zu oft angepasst und umgestellt.
MfG
Holger
Sub namen3()
Dim fso, mainfolder, flist, ordner, Zeile, Sheet, Spalte, Pfadspalte, Pfadzeile
For i = 1 To 10 'Wie oft soll das Makro laufen
'--------------------Wo soll das ganze hin-----------------------
Set Sheet = Tabelle2 ' Auf welchem Tabellenblatt alles stattfinden soll
Zeile = 3 ' Die Zeile ab der nach unten gelistet wird
Spalte = Cells(157, 1) ' Die Spalte in der gelistet wird
'--------------------Von welcher Zelle soll gelesen werden-----------
Pfadspalte = Cells(157, 1) ' Die Spalte in dem der Ausgangspfad steht, zB. 3 für Spalte C
Pfadzeile = 1 ' Die Zeile in dem der Ausgangspfad steht, zB. 1 für Zeile 1
' On Error GoTo Fehler
Set fso = CreateObject("Scripting.FileSystemObject")
Set mainfolder = fso.GetFolder(Sheet.Cells(Pfadzeile, Pfadspalte))
Set flist = mainfolder.SubFolders
For Each ordner In flist
Sheet.Cells(Zeile, Spalte) = ordner.Name
Zeile = Zeile + 1
Next
Next i
Exit Sub
' Fehler: Exit Sub
End Sub