Eine neue ARBEITSMAPPE Format *.xls(m ) erledigt folgende Schritte:
Ergo war angedacht, dass dieser Code in einer dritten / leeren "Arbeitsdatei (Excel-Workbook / Mappe) eingebaut wird.
Die benenne und speichere. Die Arbeitsdatei startet den Code und erledigt die Aufgaben!
OK, wenn der Code in die Master (.xslm) soll, dann tausche
Set oWbMaster = Workbooks.Open(Filename:=Dateipfad("Masterdatei wählen"))
gegen
Set oWbMaster = ThisWorkbook
und speichere deine Master, dann wird nur Slave geschlossen.
Die nun sogenannten "Zusatzaufgaben" müssen dagegen für den Code erst genau festgelegt werden
|