Wie muss ich den Codeschnipsel hier abändern? Mit Array komme ich z.B, nicht weiter
Dim FileName As String
FileName = Create_PDF(Source:=ActiveWorkbook, _
FixedFilePathName:="", _
OverwriteIfFileExist:=True, _
OpenPDFAfterPublish:=False)
Sub Beispiel()
Dim sPathPDF$
'Pfad
sPathPDF = "C:\Temp\PDF.pdf"
'Tabellen
Sheets(Array("Tabelle2", "Tabelle4")).Select
'Save PDF
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
sPathPDF, Quality:=xlQualityStandard, IncludeDocProperties:= _
True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub
Gruß TinoDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen