Sheet mit aktuellem Datum minus ein Tag
12.04.2018 16:30:10
Torsten
ich habe folgenden Code, um in einem anderen Workbook ein neues Sheet zu erzeugen und dieses mit dem aktuellen Datum zu benennen.
Was muss ich im Code ergaenzen, um das Datum minus einen Arbeitstag zu bekommen. Also auch wenn das Sheet am Montag erzeugt wird, soll es als Namen das Datum vom Freitag bekommen. Wenn am Dienstag, das Datum von Montag usw.
Application.DisplayAlerts = False
Workbooks.Open Filename:="Pfad\test.xlsm"
ThisWorkbook.Sheets("Sheet1").Copy after:=Workbooks("test.xlsm").Sheets(Workbooks("test.xlsm"). _
Sheets.Count)
ActiveSheet.Name = Format(Date, "DD-MM-YYYY")
Workbooks("test.xlsm").Close savechanges:=True
Application.DisplayAlerts = True
Danke fuer eure Hilfe.