|
Hallo,
ich möchte zwei Blätter einer Excel Datei als PDF unter einem bestimmten Namen abspeichern. Der Name soll sich dabei aus dem Tabellenblatt Übersicht 1 aus der Zelle E1 bilden.
Das Abspeichern als Pdf bekomme ich hin, nur das mit dem Namen nicht. Ich habe dafür folgenden Code:
Sub Save()
'
' Save Makro
'
'
Sheets(Array("Übersicht 1", "Übersicht 2")).Select
Sheets("Übersicht 1").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"H:\Auswertung EA\Ergebnisse EA.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Sheets("Übersicht 2").Select
End Sub
Statt Ergebnisse EA, soll der Name aus der Zelle E1 des Tabellenblattes Übersicht 1 gebildet werden.
Vielen Dank für die Hilfe.
|