|
Guten Morgen,
ich habe mir auf ein Textfeld ein Makro gelegt, das automatisch eine Pdf erstellt:
Sub Pdf_01()
'
' Pdf_01 Makro
Sheets("Freigabe Heisskanal").Select
ChDir "C:\Users\Andrej\Desktop\W1XXXX\W1XXXX_Datenaustausch"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Andrej\Desktop\W1XXXX\W1XXXX_Datenaustausch\Freigabedokument_W12345.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Sheets("Eingabemaske").Select
End Sub
Da sich der Pfad immer wieder ändert, benötige ich "W1XXXX" als Variable. Diese Variable soll sich auf die Zelle A1 beziehen (in der Zelle A1 wird dann z.b. W12345 stehen).
Der Pfade sieht somit so aus: "C:\Users\Andrej\Desktop\Variable_aus_Zelle_A1\Variable_aus_Zelle_A1_Datentausch"
Der Sinn ist, dass die Pdf immer in einen bestimmten Unterordner gespeichert wird.
Ich bin für jede Anregung dankbar
Mfg
Andrej
|