VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: Christian	Datum: 01.09.2020 13:50:30	Views: 867	Rating:	Antwort:
Thema: VBA Makro in 1 pdf umwandeln
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

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen