Hallo Ulrich (und natürlich auch an alle anderen),
mittlerweile habe ich mich durch gefühlte tausend Code gekämpft, die Datei funktioniert perfekt und erspart mir einiges an Arbeit :-)
Aaaaaaber, eine Sache funzt noch nicht, das löse ich jetzt manuell, was nicht dramatisch ist, aber es wäre super, wenn das noch irgendwie klappen könnte:
Bei dem obenstehenden Code war der Plan ja eigentlich ,dass er nicht nur den Reiternamen als neuen Dateinamen nimmt, sondern diesen noch ergänzt um Jahr und Monat. Das war der Teil hier:
ActiveWorkbook.SaveAs Pfad & Jahr & "\" & Monat & "\" & Reitername, FileFormat:=ThisWorkbook.FileFormat
Jahr und Monat übernimmt er bisher leider nicht, sondern nur den Reiternamen...
Hat hier vielleicht jemand eine Idee?
|