PDF als Excel speichern: So wählst Du den richtigen Pfad aus
Schritt-für-Schritt-Anleitung
Um eine Excel-Datei als PDF zu speichern und dabei einen festen Ordner auszuwählen, kannst Du folgendes VBA-Makro verwenden:
- Öffne Excel und drücke
ALT + F11, um den VBA-Editor zu öffnen.
- Klicke auf
Einfügen und wähle Modul, um ein neues Modul zu erstellen.
- Füge den folgenden Code ein:
Sub pdfspeichern()
Dim strPath As String
strPath = "Y:\B2B\Team\Mike\PDF\Angebote\" ' Hier den gewünschten Pfad angeben
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
strPath & "Angebotsliste für" & Cells(5, 3).Value, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= False
End Sub
- Passe den
strPath-Wert an, um den gewünschten Ordner für die PDF-Dateien festzulegen.
- Schließe den VBA-Editor und gehe zurück zu Excel.
- Führe das Makro aus, um die PDF-Datei im angegebenen Ordner zu speichern.
Häufige Fehler und Lösungen
Alternative Methoden
Wenn Du nach einer anderen Möglichkeit suchst, PDF-Dateien aus Excel zu speichern, kannst Du auch die integrierte Exportfunktion verwenden:
- Klicke auf
Datei > Speichern unter.
- Wähle den gewünschten Ordner aus.
- Ändere den Dateityp in
PDF.
- Klicke auf
Speichern.
Diese Methode ist besonders nützlich, wenn Du keine Makros verwenden möchtest.
Praktische Beispiele
Hier ist ein Beispiel, wie Du das Makro anpassen kannst, um mehrere Arbeitsblätter in einem Rutsch zu speichern:
Sub pdfspeichernAlle()
Dim strPath As String
Dim ws As Worksheet
strPath = "Y:\B2B\Team\Mike\PDF\Angebote\"
For Each ws In ThisWorkbook.Worksheets
ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
strPath & ws.Name & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= False
Next ws
End Sub
Mit diesem Makro werden alle Arbeitsblätter als separate PDF-Dateien im angegebenen Ordner gespeichert.
Tipps für Profis
- Nutze die
Application.DisplayAlerts = False-Einstellung, um unerwünschte Dialogfelder beim Speichern zu vermeiden.
- Erstelle eine Fehlerbehandlung im Makro, um die Benutzerfreundlichkeit zu erhöhen.
On Error GoTo ErrorHandler
' Dein Code hier
Exit Sub
ErrorHandler:
MsgBox "Ein Fehler ist aufgetreten: " & Err.Description
FAQ: Häufige Fragen
1. Wie kann ich die PDF-Datei direkt nach dem Speichern öffnen?
Du kannst das OpenAfterPublish-Argument im Makro auf True setzen, um die Datei direkt zu öffnen.
2. Ist es möglich, das PDF-Format in einer anderen Qualität zu speichern?
Ja, Du kannst die Qualität mit dem Quality-Argument anpassen. Mögliche Werte sind xlQualityStandard und xlQualityMinimum.