PDF speichern mit Text aus Textbox in Excel
Schritt-für-Schritt-Anleitung
Um ein Arbeitsblatt als PDF zu speichern und den Text aus einer Textbox als Dateinamen zu verwenden, kannst Du den folgenden VBA-Code verwenden. Dieser Code ist für Excel geeignet:
- Öffne Excel und drücke
ALT + F11, um den VBA-Editor zu starten.
- Füge ein neues Modul hinzu: Rechtsklick auf "VBAProject (DeinWorkbookName)" > Einfügen > Modul.
- Kopiere den folgenden Code in das Modul:
Sub PDF_speichern()
Dim strDateiname As String
strDateiname = "C:\Users\" & Environ("Username") & "\Dropbox\Bestellliste\2017\Alte Bestelllisten\" & _
Sheets("Tabelle1").TextBox1.Value & ".pdf"
ActiveSheet.PageSetup.PrintArea = "$A$1:$S$63"
ActiveSheet.PageSetup.FitToPagesWide = 1
ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=strDateiname, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
MsgBox "Datei gespeichert", vbOKOnly
End Sub
- Schließe den VBA-Editor und kehre zu Excel zurück.
- Füge eine Textbox zu Deinem Arbeitsblatt hinzu (Entwicklertools > Einfügen > ActiveX-Steuerelemente > Textbox).
- Vergebe einen Namen für die Textbox (z. B. "TextBox1").
- Füge einen Button hinzu, um das Makro auszuführen (Entwicklertools > Einfügen > Button).
- Verknüpfe den Button mit dem Makro
PDF_speichern.
Jetzt kannst Du auf den Button klicken und die PDF-Datei wird mit dem Text aus der Textbox als Dateinamen gespeichert.
Häufige Fehler und Lösungen
-
Fehler: "Das angegebene Verzeichnis existiert nicht."
- Lösung: Stelle sicher, dass der Pfad in
strDateiname korrekt ist und das Verzeichnis existiert.
-
Fehler: "Textbox nicht gefunden."
- Lösung: Überprüfe den Namen der Textbox. Stelle sicher, dass Du die richtige Referenz verwendest.
-
Fehler: "Zugriff verweigert."
- Lösung: Stelle sicher, dass Du die nötigen Berechtigungen für den Speicherort hast.
Alternative Methoden
Wenn Du aus einer Excel-Tabelle ein PDF erstellen möchtest, kannst Du auch die integrierte Funktion "Als PDF speichern" nutzen. So geht's:
- Wähle den Bereich, den Du speichern möchtest.
- Gehe zu
Datei > Speichern unter.
- Wähle den Speicherort und setze den Dateityp auf "PDF".
- Klicke auf
Optionen und wähle "Ausgewählte Tabelle" oder "Aktuelles Arbeitsblatt".
Diese Methode eignet sich gut, wenn Du keinen speziellen Dateinamen benötigst.
Praktische Beispiele
- Beispiel 1: Verwende eine Textbox, um den Namen des Kunden einzugeben und speichere die Bestellliste als "Kundenname_Bestellung.pdf".
- Beispiel 2: Erstelle ein Formular mit verschiedenen Eingabefeldern und speichere die Daten als PDF-Dokument, indem Du die Funktionen von Excel nutzt.
Tipps für Profis
- Automatisierung: Du kannst das Makro so anpassen, dass es automatisch den aktuellen Zeitstempel in den Dateinamen einfügt, um Duplikate zu vermeiden.
- Formular in PDF umwandeln: Wenn Du ein Word-Formular hast, kannst Du es in ein ausfüllbares PDF umwandeln, indem Du die Funktion "Speichern unter" in Word verwendest.
FAQ: Häufige Fragen
1. Wie kann ich die PDF-Datei direkt öffnen, nachdem sie gespeichert wurde?
Du kannst den Parameter OpenAfterPublish:=True in dem Export-Befehl hinzufügen.
2. Ist es möglich, mehrere Textboxen zu verwenden?
Ja, Du kannst den Code anpassen, um Werte aus mehreren Textboxen zu kombinieren, um komplexere Dateinamen zu erstellen.