ich habe mir folgendes Makro zusammengebastelt,
läuft soweit einwandfrei.
Das Problem:
Wenn das Jahr im Verzeichnis noch nicht vorhanden ist,
sollte dies erstellt werden.
Ich habe leider keinen Plan.
Public Sub Stunden_BlattSpeichern()
Dim WBName As String
Dim TJahr As String
Dim DateiNam As String
Dim strPath$
WBName = Tabelle17.Range("D5")
TJahr = Tabelle17.Range("N2")
If WBName = "" Then Exit Sub
DateiNam = WBName & " " & TJahr & ".xlsm"
strPath = "C:\_Werkstatt\__Maschinen\Mitarbeiter\" & TJahr
MsgBox strPath
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=DateiNam, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False
Exit Sub
mfg philipp