Hallo zusammen,
ich arbeitete gerade mit einem Makro und es funktioniert auch weitestgehend. Ich möchte nur gerne anstatt einzelne PDFs (50 Stück) gerne 1 PDF mit 50 Seiten haben.
Dafür müsste ich das Makro noch anpassen, doch ich weiß nicht genau wie erst die Schleife gemacht wird und dann das PDF zum Schluss gemacht wird. Dazu muss man wissen, dass die Datei 5 Registerblätter ("Cover sheet", "Dashboard", "P&L", "Balance Sheet", "Operational KPIs")) beinhaltet. Diese 5 Registerblätter werden mit dem nachstehenden VBA Code auch immer einzeln erstellt, z. B. für die Firma in Zelle AI5, dann ein neues PDF für Firma in der Zelle AI6 etc.
Gibt es da eine Möglichkeit?
Danke vielmals.
Sub PrintBook() Dim i As Integer Dim VList As Variant Dim filename As String Dim path As String Dim SvAs As String path = ActiveWorkbook.path VList = Array(Range("AI5"), Range("AI6")) For i = LBound(VList) To UBound(VList) Range("E12") = VList(i) filename = Range("E12").Text & ".pdf" ' SvAs = path & "\" & filename & ".pdf" SvAs = path & "\" & filename Sheets(Array("Cover sheet", "Dashboard", "P&L", "Balance Sheet", "Operational KPIs")).Select Sheets("Cover sheet").Activate ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:=SvAs, Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True Next End Sub
|