Office: (Office 365) Speicherdatum ein Tag zurück

Hallo Zusammen,

wie bekommt man es hin das mein Makro nicht den Heutigen Tag als Speicher Datum nimmt,sondern den gestrigen ?

Code:

Sub copyData()
ActiveWorkbook.Save

DoEvents
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Worksheets(Array("Produktionsbericht", "Input")).Copy
ActiveWorkbook.SaveAs ("\\soe-data01\teams\" & _
 Format(Now, "DD_MM_YYYY-") & Application.Substitute(ThisWorkbook.Name, ".xlsm", "")), FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
 ActiveWorkbook.Close 0
End Sub

 

Hallo,

du meinst wahrscheinlich den Bestandteil im Dateinamen:
Statt "Now" ist zu wählen "Now-1"

 

Danke Anton Exl
Wieder etwas dazu gelernt.