Guten Morgen!
Ich benötige euer Fachwissen!
Ich möchte über einen Button ein Register in einer anderen Arbeitsmappe kopieren.
Dies funktioniert auch, nur möchte ich nicht für jede Kalenderwoche einen eigenen Button machen sondern es soll aus Zelle A1 die Aktuelle Kalenderwoche auslesen und in die Formel einfügen.
So ist es im moment:

Private Sub CommandButton1_Click()
Workbooks.Open Filename:= _
"O:\….\Wochenschichtplan_2021.xlsx"
Sheets("KW" & a1).Select
Sheets("KW" & a1).Copy
ChDir "....." 'speicherort
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"O:\….\Dienstplanung_2021\Wochenschichtplan_2021.pdf" _
, Quality:=xlQualityStandard, OpenAfterPublish:=False

Kann nicht den ganzen Pfad einfügen. hoffe ihr seht auch so mein Problem!
In der Zelle A1 habe ich folgende Formel:=TEXT(KALENDERWOCHE(HEUTE();21);"@")
Ich bedanke mich jetzt schon herzlich für eure Hilfe!