Hallo liebes Forum,
ich hätte mal eine Frage. Und zwar bräuchte ich ein Makro, welches immer unter dem nächsten tag speichert und dazu noch Samstage und Sonntage auslässt.
Sprich Mo, Di, Mi, Do, Fr und dann wieder ab Montag. Das ganze müsste aber Datums bezogen sein. Also nehmen wir einmal an der Montag wäre der 01.01.2017 und heute wäre Sonntag der 31.12.2016 dann soll das ganze so aussehen:
Speichern unter DateiXY_01.01.2017. Am Tag danach:
Speichern unter DateiXY_02.01.2017 Am Tag danach:
Speichern unter DateiXY_03.01.2017
.
Und am Freitag müsste es dann so aussehen:
Speichern unter DateiXY_08.01.2017.
Ich habe jetzt einen Code der so aussieht:
Sub Speichern_unter()
Dim Datei As String
Dim Verzeichnis As String
Dim SaveDummy As Variant
Verzeichnis = "C:\temp\" 'Verzeichnis-Vorschlag
Datei = Format(Date + , "_dd_mm_yy") & ".xlsm"
SaveDummy = SpeichernUnter(Verzeichnis & Datei)
If SaveDummy <> False Then ActiveWorkbook.SaveAs SaveDummy '
End Sub
Function SpeichernUnter(VorgabeName As String) As Variant
SpeichernUnter = Application.GetSaveAsFilename(InitialFileName:=VorgabeName, Filefilter:="Excel Dateien (*.xlsm),*.xlsm*", _
FilterIndex:=1, Title:="Speichern unter...", ButtonText:="speichern")
End Function
Der Code funktioniert auch so weit. Nur weiß ich jetzt nicht was ich tun muss um die Wochenenden zu überspringen.
Ich wäre sehr froh wenn mir jemand hier weiter helfen könnte!
Viele Grüße
Chris
|