KW bei Speichern automatisch ermitteln
29.10.2013 13:15:17
Birgit
ich habe folgendes Makro (bereits mit eurer Hilfe) bei dem die Datei unter Angabe der aktuellen Kalenderwoche abgespeichert wird. Da die Datei jedoch immer bereits am Montag erstellt wird, sind die darin befindlichen Daten hauptsächlich von der Kalenderwoche davor.
Daher möchte ich nun die Logik einbauen, dass im Speichernamen nicht die aktuelle Kalenderwoche sondern die letzte Kalenderwoche angegeben wird - d.h. mit heutigen Bsp die KW 43.
Kann mir dabei jemand behilflich sein:
Sub Kopie_DW()
Dim tmp, DINKW As String
tmp = DateSerial(Year(Date + (8 - Weekday(Date)) Mod 7 - 3), 1, 1)
DINKW = ((Date - tmp - 3 + (Weekday(tmp) + 1) Mod 7)) \ 7 + 1 & "_" & Year(Date)
Sheets(Array("Bestellungen Technik", "Bestellungen KW Technik", "Diagr. Instandhaltung", " _
Diagr. Ersatzteile")).Copy
With ActiveWorkbook
.SaveAs Filename:="M:\Controlling-Technik\DATA WAREHOUSE\" _
& "BESTELLUNGEN\BESTELLUNGEN WÖCHENTLICH\Bestellungen KW " _
& DINKW & " " & Format(Date, "DD.MM.YYYY") & ".xlsx"
.Close
End With
End Sub