Excel-Tabs als PDF abspeichern
12.02.2015 14:44:47
Nik
ich habe 5 Excel-Tabs nebeneinander, die ich nacheinander alle in ein PDF abspeichern möchte, welches dann insgesamt 5 Seiten hat. Dazu habe ich den folgenden VBA-Code implementiert:
Sub PDF_Druck()
Dim sPfad As String
sPfad = Worksheets("Controll").Range("H1")
Sheets(Array("Cover_CS", "CS BiBu", "CS NCA", "CS Attrition", "CS ECIF")).Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
sPfad & "\" & Worksheets("Controll").Range("H2"), Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
Sheets("Controll").Select
End Sub
Problem ist das nun aber nur das erste Tab im PDF abgespeichert wird. Was mache ich hier falsch? Sieht jemand spontan den Fehler?Vielen lieben Dank und Gruss
Nik