|
Hallo Alex!
Also wenn du mit dem Programm da arbeiten willst, must du deinen Ausgangspfad an sRootPath übergeben. Bei dem Programm must du aber sRootPath als Variable im Public Sub MWDateienMitUnterordnernAuslesen() deklarieren.Derzeit ist sie dort als Konstante die nicht von außerhalb geändert werden kann.
Den Pfad deiner aktuellen Datei erhältst du mit
ThisWorkbook.Path
die Zuordnung geht dann bspw. so
dim SRootPath as string
sRootPath = ThisWorkbook.Path
Alternativ kannst du ihn auch in eine Zelle schreiben.
Dann wäre bspw. bei Tabelle1 Zelle A1
sRootPath = Worksheets(1).Cells(1, 1).Value
Wie gesagt in die Sub reinschreiben.
Gruß
|