2 von 4 Datenblätter in PDF
31.03.2017 07:41:00
4
ich würde gerne 2 von 4 Datenblätter in eine PDF-Datei packen.
der Code den ich mir zusammengebastelt habe sie wie folgt aus:
Sub Sheets2PDF()
Sheets(Array("Tabelle1", "Tabelle2")).Select
Selection.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\Mappe.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub
Wenn eine Zelle oder ein Bereich ausgewählt wurde schreibt er auch nur diese Zelle/Bereich von beiden Datenblättern in eine PDF
Anzeige