ich habe bisher mit dem Makro Rekorder folgendes aufgenommen und ein bisschen daran rumgebastelt:
Sub Test()
' Test Makro
If MsgBox("Auswertung des Vormonats?", vbYesNoCancel, "PDF Exportieren?") = vbYes Then
Sheets("Test").Select
ActiveSheet.ChartObjects("Diagramm 3").Activate
ChDir "X:\Ordner"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"X:\Ordner\Name " & Format(DateSerial(Year(Date), Month(Date), 0), "MM YYYY"), Quality:= _
xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End If
End Sub
Der Ordnerpfad ist fix, und somit wird das Ganze immer in den selben Ordner gepackt. Ich möchte nun die PDF im momentanen Ordner nochmals in einen Unterordner verschieben.Die Ordnerstruktur sähe wie folgt aus:
Ordner
- Unterordner Januar 2020
- Unterordner Februar 2020
usw.
Die Makro soll automatisch erkennen, welcher Monat gerade ist, und das Dokument in den richtigen Ordner packen. Ist so etwas möglich? Meine VBA-Kenntnisse erschöpfen sich dort leider.
Danke und Grüße
Kevin