Makro in allen Dateien des Unterordners ausführen
24.08.2015 16:30:05
Christof
ich möchte mit einem Makro alle Dateien eines Unterordners nacheinander öffnen, einen 2. Makro ausführen, und die Dateien wieder schliessen.
Mit diesem Code funktioniert dies aber irgenwie nicht. Nach dem "Do While cPfad """ springt er mir immer auf das Ende obwohl es im Unterordner diverse Dateien (*.xlsm) hat.
Was habe ich Falsch gemacht? Gibt es eine bessere Variante?
Sub Makro1()
Dim cFile As String
Dim Pfad As String: Pfad = ThisWorkbook.Path & "\Rezepte neu"
cFile = Dir(Pfad)
Do While cPfad ""
Workbooks.Open (Pfad & cFile)
Makro2
cFile = Dir
Loop
End Sub
Anzeige