Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1616to1620
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Sheet mit aktuellem Datum minus ein Tag

Sheet mit aktuellem Datum minus ein Tag
12.04.2018 16:30:10
Torsten
Hallo Gemeinde,
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.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sheet mit aktuellem Datum minus ein Tag
12.04.2018 16:40:22
Martin
Hallo Torsten,
versuch es mal so:
Sub Beispiel()
Application.DisplayAlerts = False
Workbooks.Open Filename:="Pfad\test.xlsm"
ThisWorkbook.Sheets("Sheet1").Copy after:=Workbooks("test.xlsm").Sheets(Workbooks("test. _
xlsm"). _
Sheets.Count)
If Weekday(Date) = vbMonday Then
ActiveSheet.Name = Format(Date - 3, "DD-MM-YYYY")
Else
ActiveSheet.Name = Format(Date - 1, "DD-MM-YYYY")
End If
Workbooks("test.xlsm").Close savechanges:=True
Application.DisplayAlerts = True
End Sub
Viele Grüße
Martin
AW: Sheet mit aktuellem Datum minus ein Tag
12.04.2018 16:45:25
Torsten
Hallo Martin,
vielen Dank fuer die schnelle Hilfe. Werde das testen.
Gruss Torsten
Anzeige
...oder so....
12.04.2018 16:47:21
Martin
Hallo Torsten,
das Umbenennen des Arbeitsblattes mit dem richtigen Datum ginge auch als Einzeiler:
Sub Beispiel()
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 - IIf(Weekday(Date) = vbMonday, 3, 1), "DD-MM-YYYY")
Workbooks("test.xlsm").Close savechanges:=True
Application.DisplayAlerts = True
End Sub
Viele Grüße
Martin

311 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige