Thema

Sicherlich! Unten sehen Sie ein Excel-VBA-Makro, das jedes Blatt in der Arbeitsmappe als PDF-Datei mit dem Namen des Blatts extrahiert:

1. Öffnen Sie Ihre Excel-Arbeitsmappe.
2. Drücken Sie Alt + F11, um den VBA-Editor zu öffnen.
3. Fügen Sie ein neues Modul ein, indem Sie auf Insert > Module klicken.
4. Kopieren Sie den folgenden Code und fügen Sie ihn in das Modul ein:

Sub ExportSheetsAsPDF()
    Dim ws As Worksheet
    Dim filePath As String
    Dim fileName As String
    Dim fullPath As String

    ' Set the path to save the PDFs (modify as needed)
    filePath = ThisWorkbook.Path & "\"

    For Each ws In ThisWorkbook.Worksheets
        ' Create the full path and file name
        fileName = ws.Name & ".pdf"
        fullPath = filePath & fileName

        ' Export the sheet as a PDF
        ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fullPath, Quality:=xlQualityStandard, _
                               IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    Next ws

    ' Notify user that sheets have been exported
    MsgBox "All sheets have been exported as PDFs to " & filePath, vbInformation
End Sub

5. Schließen Sie den VBA-Editor.
6. Führen Sie das Makro aus, indem Sie Alt + F8 drücken, ExportSheetsAsPDF auswählen und auf Run klicken.

Dieses Makro exportiert jedes Blatt in Ihrer Excel-Arbeitsmappe als separate PDF-Datei mit dem Namen des Blatts, die im selben Verzeichnis wie die Arbeitsmappe gespeichert ist. Ändern Sie die Variable filePath, wenn Sie die PDFs in einem anderen Verzeichnis speichern möchten.