Wie kann man ein aktuelles Workbook unter einem anderen Namen als Kopie speichern. Beim Debuggen wird hier zwar kein Fehler angezeigt, aber das File wird auch nicht in dem angegebenen Pfad gespeichert.
Dim DateiName As String
Dim Pfad As String
Dim Jahr
Pfad = ThisWorkbook.path
DateiName = ThisWorkbook.Name
Jahr = Worksheets("Navigation").Range("I2").Value
MkDir Pfad & "\" & Jahr
'Das Workbook in dem vorher angelegten Pfad speichern.
ThisWorkbook.SaveCopyAs Pfad & "\" & Jahr & "\" & Jahr & DateiName