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ß Tino