Hallo Zusammen,
hoffentlich kann mir jemand helfen. Leider excel fragt mich jedesmal in der Schleife umein .pdf abzuspeichern. Kann ich es irgendwie umgehen?
ThisWorkbook.Sheets("Disclaimer").PageSetup.LeftHeader = "&""XXX Light,Bold""&18&U&K003868" & PF_Name & Chr(10) & "&""XXX Type Light,Bold""&12&U&K003868" & BM_Name & Chr(10) & Currency_Name & Chr(10) & Data_from_to
pdfName = Application.GetSaveAsFilename(strDir & PF_Name & " " & Month & " " & Year & ".pdf", "PDF-Dateien (*.pdf), *.pdf")
Sheets(Array("Attribution MSCI Sector (2)", "Attribution MSCI Country (2)", "Top Bottom 20 Rel.Contrib.", "Top Bottom 20 Rel.Weight", "Disclaimer")).Copy
Application.DisplayAlerts = False
With ActiveWorkbook
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
.Close savechanges:=False
End With |