PDF erzeugen per VBA mit zusätzlichen Funktionen

Guten Tag Zusammen,

erstmal mega cooles Forum - Hut ab 👍🏻

Ich bin leider nicht so fit im VBA Bereich und wollte um Unterstützung zu meinem Vorhaben bitten.
Den Code nur fürs PDF exportieren habe ich gefunden leider kann ich meine Sonderwünsche nicht mit einbinden.

Ich möchte gerne per Makro ein PDF des Tabellenblattes Anzeige erstellen.
Mir folgenden wünschen.
- Beim schließen der Excel soll eine Input Box mit frage kommen - PDF erzeugen ? Ja nein
- Das PDF soll im Querformat gespeichert werden
- Ist es möglich einzubauen per Input Box welche Seiten Anzahl exportiert werden soll ? (Nur Seite 1 oder nur Seite 4-5 oder alles ?)
- Der Speicher Pfad soll im Code stehen (So dass ich ihn anpassen kann)
- Der Dateiname soll lauten Urlaubsplan 2024
- Sollte bereits eine Datei mit dem Namen vorhanden sein soll sie überschreiben werden bzw. Wird vermutlich ein Windows Pop up erscheinen?

Anbei auch eine "kurze" Beispieldatei
https://www.herber.de/bbs/user/167211.xlsx

Vielen Dank vorab :)

Lg Cookiemonster

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo

Du hast eingestellt, dass dein Blatt immer auf eine Seite ausgedruckt werden soll.
Deshalb ist die Abfrage Seite 2 - 4 überflüssig

Dieser Code muss in "DieseArbeitsmappe"

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Dim PDFJaNein

    Dim Svon As Variant, Sbis As Integer, Pfad As String, DName As String

    

    PDFJaNein = MsgBox("PDF erzeugen", vbYesNo + vbQuestion)

    

    If PDFJaNein = vbYes Then

        DName = "Urlaubsplan 2024"

        Pfad = "D:\Excel\Temp\" ' mit \ am Ende

        

        Svon = InputBox("Seite ab", "Druckbereich", "Alle")

        If Svon > "Alle" Then

             Sbis = InputBox("Seite bis", "Druckbereich", 999)

        Else

             Svon = 1: Sbis = 999

        End If

        

        Application.DisplayAlerts = False 'Warnung "Schon vorhanden" ausschalten

        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pfad & DName, _

            From:=CInt(Svon), To:=Sbis, OpenAfterPublish:=True

        Application.DisplayAlerts = True



    End If

 

End Sub

Im Wiederholungslauf muss die PDF geschlossen sein

LG UweD

Beliebteste Forumthreads (12 Monate)

PDF erzeugen per VBA mit zusätzlichen Funktionen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

PDF erzeugen per VBA mit zusätzlichen Funktionen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread