Moin zusammen,

ich habe mir ein Makro geschrieben, dass das aktive Tabellenblatt als PDF mit vorgegebener Dateinnennug speichert. Gerne würde ich aber an die Dateinennung noch die letzte Kalenderwoche hinzufügen.

Also z.B. Test KW38.pdf - Kann mir da jemand helfen und den passenden VBA Code schreiben?

Sub Print()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Test.pdf", Quality:=xlQualityStandard, _
  IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

Das wäre großartig!

Danke und viele Grüße!