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
Problem dabei ist der funktioniert nur so lange keine Zelle in diesen Blättern ausgewählt ist.Wenn eine Zelle oder ein Bereich ausgewählt wurde schreibt er auch nur diese Zelle/Bereich von beiden Datenblättern in eine PDF