Wie speichert man ein Arbeitsblatt als PDF-Datei und sendet es als Anhang über Outlook?
Im täglichen Arbeitsablauf kommt es häufig vor, dass Sie ein bestimmtes Arbeitsblatt mit Kollegen oder Kunden teilen müssen, dabei jedoch sicherstellen möchten, dass das Dateityp festgelegt und geschützt ist. Das Versenden eines Arbeitsblatts als PDF-Dateien über Outlook ist eine gängige Anforderung – insbesondere zur Dokumentation von Berichten, zum Versand von Rechnungen oder zum Teilen abgeschlossener Daten, die nicht ohne Weiteres verändert werden sollen. Traditionell erfolgt dies durch manuelles Speichern des Arbeitsblatts als PDF, Öffnen von Outlook, Verfassen einer E-Mail, Anhängen der PDF-Datei und Versenden – ein mühsamer und zeitaufwendiger Prozess, besonders bei häufiger Wiederholung oder beim Umgang mit mehreren Blättern.
Dieser Artikel führt Sie Schritt für Schritt durch den Automatisierungsprozess: Sie erfahren, wie Sie ein Arbeitsblatt direkt aus Excel in eine PDF-Datei konvertieren und diese sofort als Anhang einer Outlook-E-Mail versenden können. So sparen Sie wertvolle Zeit und umgehen zeitaufwändige manuelle Wiederholungen. Sie erhalten eine fertige VBA-Code-Lösung sowie praktische Hinweise zu Bedienung, Vorteilen, Anwendungsszenarien und nützlichen Tipps.
Speichern eines Arbeitsblatts als PDF-Dateien und Versand als Anhang mit VBA-Code
Speichern eines Arbeitsblatts als PDF-Dateien und Versand als Anhang mit VBA-Code
Um das Exportieren eines Excel-Arbeitsblatts als PDF und den Versand per Outlook zu beschleunigen, können Sie den folgenden VBA-Code nutzen. Dieser Ansatz ist ideal, wenn Sie regelmäßig personalisierte Berichte, Rechnungen oder andere Datenschnappschüsse direkt aus Excel versenden – denn er automatisiert Speichern und Versenden vollständig.
Stellen Sie sicher, dass Microsoft Outlook installiert und als Standard-E-Mail-Client eingerichtet ist, bevor Sie diese Methode anwenden. Der Code funktioniert optimal, wenn Makros in Ihrer Excel-Umgebung aktiviert sind.
1. Öffnen Sie das Arbeitsblatt, das Sie als PDF speichern und versenden möchten. Drücken Sie gleichzeitig Alt + F11, um den Editor für Microsoft Visual Basic for Applications (VBA) zu öffnen.
2. Klicken Sie im VBA-Fenster im Menü auf Einfügen > Modul. Dadurch wird ein neues Code-Modul erstellt. Kopieren Sie anschließend den folgenden VBA-Code in das Code-Fenster des Moduls.
VBA-Code: Speichern eines Arbeitsblatts als PDF-Dateien und Versand als Anhang
Sub Saveaspdfandsend()
Dim xSht As Worksheet
Dim xFileDlg As FileDialog
Dim xFolder As String
Dim xYesorNo As Integer
Dim xOutlookObj As Object
Dim xEmailObj As Object
Dim xUsedRng As Range
Set xSht = ActiveSheet
Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xFileDlg.Show = True Then
xFolder = xFileDlg.SelectedItems(1)
Else
MsgBox "You must specify a folder to save the PDF into." & vbCrLf & vbCrLf & "Press OK to exit this macro.", vbCritical, "Must Specify Destination Folder"
Exit Sub
End If
xFolder = xFolder + "\" + xSht.Name + ".pdf"
'Check if file already exist
If Len(Dir(xFolder)) > 0 Then
xYesorNo = MsgBox(xFolder & " already exists." & vbCrLf & vbCrLf & "Do you want to overwrite it?", _
vbYesNo + vbQuestion, "File Exists")
On Error Resume Next
If xYesorNo = vbYes Then
Kill xFolder
Else
MsgBox "if you don't overwrite the existing PDF, I can't continue." _
& vbCrLf & vbCrLf & "Press OK to exit this macro.", vbCritical, "Exiting Macro"
Exit Sub
End If
If Err.Number <> 0 Then
MsgBox "Unable to delete existing file. Please make sure the file is not open or write protected." _
& vbCrLf & vbCrLf & "Press OK to exit this macro.", vbCritical, "Unable to Delete File"
Exit Sub
End If
End If
Set xUsedRng = xSht.UsedRange
If Application.WorksheetFunction.CountA(xUsedRng.Cells) <> 0 Then
'Save as PDF file
xSht.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xFolder, Quality:=xlQualityStandard
'Create Outlook email
Set xOutlookObj = CreateObject("Outlook.Application")
Set xEmailObj = xOutlookObj.CreateItem(0)
With xEmailObj
.Display
.To = ""
.CC = ""
.Subject = xSht.Name + ".pdf"
.Attachments.Add xFolder
If DisplayEmail = False Then
'.Send
End If
End With
Else
MsgBox "The active worksheet cannot be blank"
Exit Sub
End If
End Sub3. Nachdem Sie den Code eingefügt haben, drücken Sie F5 oder klicken Sie im VBA-Editor auf Ausführen, um das Makro zu starten. Es erscheint ein Ordnerauswahldialog. Wählen Sie den Zielordner, in dem die PDF-Dateien gespeichert werden sollen, und klicken Sie auf OK, um fortzufahren.
Hinweise und praktische Tipps:
4. Sobald der Vorgang abgeschlossen ist, öffnet sich ein neues Outlook-E-Mail-Fenster mit den PDF-Dateien als Anhängen. Die Betreffzeile ist bereits mit dem Namen des Arbeitsblatts gefüllt und um „.pdf“ ergänzt. Sie können den E-Mail-Inhalt anpassen, Empfänger hinzufügen und die Nachricht anschließend ganz nach Bedarf versenden – so reduzieren Sie Fehler und steigern die Effizienz gegenüber der manuellen Erstellung von Anhängen.
Dieser VBA-basierte Ansatz ist besonders effizient, wenn Sie regelmäßig abgeschlossene Arbeitsblätter als PDF-Anhänge versenden müssen, und reduziert repetitive manuelle Schritte auf ein Minimum. Zu seinen Einschränkungen zählen die Abhängigkeit von Outlook, die Unfähigkeit, mehrere Blätter gleichzeitig zu verarbeiten, sowie die Notwendigkeit, Makros zu aktivieren. Für komplexere Workflows – etwa das gleichzeitige Versenden mehrerer Arbeitsblätter oder erweiterte Automatisierungen – empfiehlt sich die Nutzung von Excel-Add-Ins oder integrierter Funktionen.
Alternative Lösung: Falls VBA-Makros in Ihrer Umgebung nicht geeignet sind – etwa weil Makros eingeschränkt sind –, können Sie stattdessen manuell die integrierte Excel-Funktion Exportieren oder Speichern unter verwenden, um Ihr Arbeitsblatt als PDF zu speichern und es anschließend in Outlook anzuhängen und zu versenden. Diese Methode erfordert zwar mehr Schritte, steht jedoch universell zur Verfügung, ohne besondere Berechtigungen oder Programmierkenntnisse zu benötigen.
Speichern Sie problemlos ein oder mehrere Arbeitsblätter gleichzeitig als separate PDF-Dateien.
Mit dem Arbeitsmappe trennen-Tool von Kutools für Excel können Sie problemlos ein oder mehrere Arbeitsblätter – wie in der folgenden Demo gezeigt – gleichzeitig als separate PDF-Dateien speichern.Laden Sie es jetzt herunter und testen Sie es! (30-tägige kostenlose Testversion))
Verwandte Artikel:
- Wie speichert man einen Excel-Dateinamen mit Zeitstempel?
- Wie nutzt man die Funktion „Speichern unter“, um eine vorhandene Datei in Excel automatisch zu überschreiben?
- Wie speichert oder exportiert man mehrere bzw. alle Arbeitsblätter als separate CSV- oder Textdateien in Excel?
- Wie kann man die Optionen „Speichern“ und „Speichern unter“ in Excel deaktivieren oder deren Nutzung untersagen?
- Wie kann man das Speichern der Arbeitsmappe deaktivieren, während „Speichern unter“ weiterhin erlaubt bleibt?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins