Variable aus aktuellem Datum deffinieren

Hallo
Ich habe das was zusammenkopiert und aufgenommen und angepasst.
es funktioniert soweit gut allerdings möchte ich noch etwas "automatisiert" haben:
speicherpfad = SpeipfadT1 & "\02 Rechnungen\" & Year(Date) & "\01 Januar - März\versendet\"
Nämlich soll ein Teil von "speicherpfad" auf Grund des aktuellen Monats automatisiert werden.
Es geht mir um den Teil mit "01 Januar - März"
Ich möchte nicht all Quartal den Cod ändern, deshalb soll er sich selber eins der folgenden Variablen rauspicken:
01 Januar - März
02 April - Juni
03 Juli - September
04 Oktober - Dezember

Wann welche Variable zum Zuge kommt ist glaube ich selbsterklärend.
Vielen Dank schon mal für eure Hilfe.

'PDF speichern
Dim Pfad As Object
Dim SpeipfadT1 As Object
Dim FSO As Object
Set FSO = CreateObject("Scripting.FilesystemObject")
Set Pfad = FSO.getfolder(ActiveWorkbook.Path)
Set SpeipfadT1 = Pfad.parentfolder
Dim Dateiname As String
speicherpfad = SpeipfadT1 & "\02 Rechnungen\" & Year(Date) & "\01 Januar - März\versendet\"
Dateiname = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
speicherpfad & "RE-" & Dateiname & "-" & Format(Date, "yymmDD") _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

'PDF speichern Dim Pfad As Object Dim SpeipfadT1 As Object Dim FSO As Object Set FSO = CreateObject("Scripting.FilesystemObject") Set Pfad = FSO.getfolder(ActiveWorkbook.Path) Set SpeipfadT1 = Pfad.parentfolder Dim Speicherpfad As String Dim Dateiname As String Dim Quartal As String Select Case Month(Date) Case 1 To 3 Quartal = "01 Januar - März" Case 4 To 6 Quartal = "02 April - Juni" Case 7 To 9 Quartal = "03 Juli - September" Case 10 To 12 Quartal = "04 Oktober - Dezember" End Select Speicherpfad = SpeipfadT1 & "\02 Rechnungen\" & Year(Date) & "\" & Quartal & "\versendet\" Dateiname = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5) ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ Speicherpfad & "RE-" & Dateiname & "-" & Format(Date, "yymmDD") _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=True

Dim intQuartal As Integer Dim strQuartal As String intQuartal = WorksheetFunction.RoundUp(Month(Date) / 3, 0) strQuartal = Format(intQuartal, "00 ") & MonthName(intQuartal) & " - " & MonthName( _ intQuartal + 2) Speicherpfad = SpeipfadT1 & "\02 Rechnungen\" & Year(Date) & "\" & strQuartal & "\ _ versendet\"

Beliebteste Forumthreads (12 Monate)

Variable aus aktuellem Datum deffinieren

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread