Guten Morgen,
ich habe folgendes Makro:
Dim DateiNam As String
Dim strPath
Dim Antwort
Dim aktSh
Dim Datum
Datum = Format(ActiveSheet.Range("L1").Value, ("yyyy"))
strPath = "C:\_Sigi\#_Arbeiten\Fertig\" & Datum & "\"
DateiNam = ActiveWorkbook.Name
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=strPath & DateiNam, FileFormat _
:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
es soll also die Datei im aktuellen Jahr gespeichert werden, wenn das Verzeichnis noch nicht vorhanden ist,
soll es erstellt werden.
mfg
sigrid bk