Markierte Sheets in 1 pdf speichern

Sub ExportSelectedSheetsAsPDF()

    Dim ws As Worksheet

    Dim pdfFileName As String

    Dim selectedSheets As New Collection

    

    ' Erstelle einen Dateinamen für das PDF

    pdfFileName = "C:\Lebensgefuehl\Rezepte\PDFs\SelectedSheets.pdf"

    

    ' Füge markierte Arbeitsblätter zur Collection hinzu

    For Each ws In ThisWorkbook.Worksheets

        If ws.Visible = xlSheetVisible And ws.Selected Then

            selectedSheets.Add ws

        End If

    Next ws

    

    ' Überprüfe, ob mindestens ein Arbeitsblatt markiert ist

    If selectedSheets.Count = 0 Then

        MsgBox "Keine markierten Arbeitsblätter gefunden.", vbExclamation

        Exit Sub

    End If

    

    ' Exportiere die markierten Arbeitsblätter als ein PDF-Dokument

    Sheets(selectedSheets(1).Name).Select ' Wähle das erste Arbeitsblatt aus

    Sheets(selectedSheets(1).Name).Activate ' Aktiviere das erste Arbeitsblatt

    

    ' Exportiere die markierten Arbeitsblätter als PDF

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfFileName, _

                                    Quality:=xlQualityStandard, IncludeDocProperties:=True, _

                                    IgnorePrintAreas:=False, OpenAfterPublish:=False

    

    ' Füge die restlichen markierten Arbeitsblätter zum PDF hinzu

    For i = 3 To selectedSheets.Count

        Sheets(selectedSheets(i).Name).Select False ' Wähle das nächste Arbeitsblatt aus

        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfFileName, _

                                        Quality:=xlQualityStandard, IncludeDocProperties:=True, _

                                        IgnorePrintAreas:=False, OpenAfterPublish:=False

    Next i

    

    MsgBox "Die markierten Arbeitsblätter wurden als PDF-Dokument gespeichert.", vbInformation

End Sub