Lissa hat eine Arbeitsmappe, die mehrere Arbeitsblätter enthält. Sie möchte individuelle PDFs für diese Arbeitsblätter erstellen (ein PDF pro Arbeitsblatt)

mit dem Namen der PDF-Datei basierend auf dem Namen des Arbeitsblatts. Sie fragt sich, ob es in Excel eine Möglichkeit gibt, dies zu tun.

Es gibt verschiedene Möglichkeiten, je nachdem, wie viel Zeit Sie verbringen möchten.

Wenn dies ein „einmaliges“ Ereignis ist, können Sie jedes einzelne Arbeitsblatt manuell drucken. Sie können auch jedes Arbeitsblatt in eine eigene Arbeitsmappe kopieren und dann jede Arbeitsmappe als PDF drucken.

Diese sind jedoch ziemlich manuell intensiv. (Aus diesem Grund habe ich gesagt, dass sie möglicherweise nur für „einmalige“ Vorkommnisse geeignet sind.) Wenn Sie etwas Automatischeres wünschen, sollten Sie ein Makro verwenden, um die PDF-Dateien zu erstellen. Hier ist ein Beispiel für ein kurzes Makro, das die PDF-Erstellung für Sie übernimmt:

Sub CreatePDFs()

Dim wks As Worksheet     Dim sFolder As String     Dim sTemp As String

sFolder = ActiveWorkbook.Path & "\"



sTemp = "Created PDFs for the following worksheets"

For Each wks In ActiveWorkbook.Worksheets         If wks.Visible = xlSheetVisible Then             sTemp = sTemp & vbCrLf & "   * " & wks.Name             wks.ExportAsFixedFormat Type:=xlTypePDF, _               Filename:=sFolder & wks.Name & ".pdf", _               OpenAfterPublish:=False         End If     Next

MsgBox sTemp End Sub

Beachten Sie, dass der in der Variablen sFolder gespeicherte Pfad auf den Pfad festgelegt ist, der der aktiven Arbeitsmappe zugeordnet ist. (Wenn Sie die aktive Arbeitsmappe noch nicht gespeichert haben, wird das Makro nicht ordnungsgemäß ausgeführt.) Dieser Pfad ist der Ordner, in dem die PDF-Dateien gespeichert werden. Wenn Sie möchten, dass sie an einem anderen Ort gespeichert werden, ändern Sie einfach den Wert, der der Variablen sFolder zugewiesen ist.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (13570) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365.