Moin zusammen,
mit folgendem Code erstelle ich aus meiner Excel-Datei ein PDF Dokument:
(funktioniert ohne Probleme)
Sheets(Array("Tabelle1", "Tabelle2")).Select
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="Dokument", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Jetzt möchte ich gerne dass aus Tabelle3, Zelle B5 der Dokumentenname übernommen wird.
Ich habe es mit
Sheets(Array("Tabelle1", "Tabelle2")).Select
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=Worksheets("Tabelle3").Range("B5").Value, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
versucht, aber das funktioniert nicht.
Kann mir jemand helfen?