Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1308to1312
1308to1312
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Speichern als PDF mit Blattname und aktuellen Mona

Forumthread: Speichern als PDF mit Blattname und aktuellen Mona

Speichern als PDF mit Blattname und aktuellen Mona
01.05.2013 16:15:51
Kerstin
Haalo,
möchte aus meiner Excel Datei ein Blatt speichern als PDF mit dem Blattnamen un was in C3 steht.
Geht sowas. Für Hilfe wäre ich dankbar.
Gruß Kerstin

Anzeige

16
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Speichern als PDF mit Blattname und aktuellen Mona
01.05.2013 16:25:16
Matze
Hallo Kerstin,
das geht, aber wie nennt sich das Tabellenblatt und was steht in C3? Ein Datum , ein Name?
Soll die Datei im selben Verzeichnis gespeichert werden wo die Exceldatei ist?
Matze

AW: Speichern als PDF mit Blattname und aktuellen Mona
01.05.2013 16:25:40
Hajo_Zi
Hallo Kerstin,
benutze doch den Makrorecorder, der liefert einen guten Ansatz.
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"W:\Eigene Dateien\Hajo\Internet\Test\" & ActiveSheet.Name & Range("c1") & ".pdf", Quality:=xlQualityStandard _
, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Gruß Hajo

Anzeige
AW: Speichern als PDF mit Blattname und aktuellen Mona
01.05.2013 16:32:58
Matze
Huhu Hajo,
komm schon , die 3 Zeilen hättest du doch auch noch schreiben können um es komplett zu machen.
In ein Modul:(ab hier kopieren!)
Option Explicit 
Sub saveAsPDF()
Dim vntFile As Variant
vntFile = Application.GetSaveAsFilename(ThisWorkbook.Path & "\" & ActiveSheet.Name &  _
ActiveSheet.Range("C3").value & ".pdf", _
"PDF Dateien (*.pdf), *.pdf", Title:="Als PDF Speichern")
If vntFile  False Then
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=vntFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End If
End Sub
Matze
Speichert das "Aktive" Blatt und den Inhalt von C3 im Aktuell Pfad wo du gerade die Mappe ausführst.
Hoffe geholfen zu haben,.. Schönen Restfeiertag

Anzeige
AW: Speichern als PDF mit Blattname und aktuellen Mona
01.05.2013 17:22:08
Kerstin
Hallo Matze,
das ist ganz toll von Dir, vielen Dank.
Gruß Kerstin

AW: Speichern als PDF mit Blattname und aktuellen Mona
01.05.2013 17:27:08
Kerstin
Hallo Matze,
einen habe ich noch.
Vielleicht kann man zum Speichern noch B2 hinzunehmen.
Hier steht Datum April 2013 z.B drin.
Vielleicht könnte er nur das April 2013 aus dieser Zelle übernehmen. Geht sowas?
Gruß Kerstin.

Anzeige
AW: Speichern als PDF mit Blattname und aktuellen Mona
01.05.2013 17:28:50
Hajo_Zi
Hallo Kerstin,
Format(Range("b2"),"MM YYYY")
Gruß Hajo

AW: Speichern als PDF mit Blattname und aktuellen Mona
01.05.2013 17:35:25
Matze
Hallo Kerstin,
was steht wirklich in der Zelle B2 ?
zB 1.4.2013 formatiert als MMMMM.JJJJ ergibt April.2013
oder steht dort per Hand eingetragen April 2013 ?
du hattest auch meine ersten Fragen nicht beantwortet , warum eigentlich, ich könnt immer ausflippen,
da will man helfen und es passiert nix.
Matze

Anzeige
AW: Speichern als PDF mit Blattname und aktuellen Mona
01.05.2013 17:43:17
Kerstin
Hallo Matze,
in der Zelle steht per Hand geschrieben "Datum April 2013"
Gruß Kerstin

AW: Speichern als PDF mit Blattname und aktuellen Mona
01.05.2013 17:53:55
Hajo_Zi
Hallo Kerstin,
dann war mein Ansatz falsch Mid(Range("b2"),7)
Gruß Hajo

AW: Speichern als PDF mit Blattname und aktuellen Mona
01.05.2013 18:25:36
Matze
@ Hajo,
wie bekommen wir die 2013 weg? Sie will ja nur den Monat haben.
Mid hab ich kapiert, ab der 7ten Stelle schreibt er das Ergebnis.
Ich könnte auch mit Mid Zeichenfolgen ersetzen aber das bringt mir auch nicht viel da ich nicht vorher weis welcher Monatsname geschrieben steht.
Ich hab Versucht mit - Rechts(B2;5) die letzten 5 stellen wegzubekommen aber leider kommt dann #Wert
als Fehler
Hast du noch Ideen? oder gehe ich das falsch an?
Matze

Anzeige
AW: Speichern als PDF mit Blattname und aktuellen Mona
01.05.2013 18:34:47
Hajo_Zi
Hallo Matze,
Sie wollte April 2013 Übernehmen und in der Zelle steht "Datum April 2013" als ab 7 Stelle.
Gruß Hajo

Ooops, stimmt Hajo, Danke,.. owT
01.05.2013 18:36:23
Matze

Da muss Hajo helfen,...
01.05.2013 18:06:43
Matze
ich komme damit nicht klar. Warum steht da eigentlich "Datum April 2013" drin ?
Wenn du "April 2013 " eingibst sollte sich die Zelle auch als Datum ansprechen lassen, so ist das
bestimmt eine formatierte Text Zelle. Muss ich passen.
So würde wieder der komplette Inhalt der Zelle als Pdf gespeichert:
Sub saveAsPDF()
Dim vntFile As Variant
vntFile = Application.GetSaveAsFilename(ThisWorkbook.Path & "\" & ActiveSheet.Name & "_" &  _
ActiveSheet.Range("C3").Value & "_" & _
ActiveSheet.Range("B2").Value & ".pdf", "PDF Dateien (*.pdf), *.pdf", Title:="Als PDF  _
Speichern")
If vntFile  False Then
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=vntFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True ' wenn nicht angezeigt werden soll False
End If
End Sub
Matze

Anzeige
AW: Da muss Hajo helfen,...
01.05.2013 18:27:56
Matze
hier mit Hajos Vorschlag:
Sub saveAsPDF()
Dim vntFile As Variant
vntFile = Application.GetSaveAsFilename(ThisWorkbook.Path & "\" & ActiveSheet.Name & "_" &  _
ActiveSheet.Range("C3").Value & "_" & _
Mid(Range("b2"), 7) & ".pdf", "PDF Dateien (*.pdf), *.pdf", Title:="Als PDF Speichern")
If vntFile  False Then
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=vntFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True ' wenn nicht angezeigt werden soll False
End If
End Sub
Das 2013 bleibt dabei stehen , im Speichername steht dann Irgendwasdavor_April 2013.pdf
Matze

Anzeige
AW: Da muss Hajo helfen,...
01.05.2013 19:19:22
Kerstin
Hallo Matze, Hallo Hajo,
ja, es klappt toll, genau wie es sein sollte.
Vielen Dank Euch beiden, für die schnelle Hilfe.
Das war furchtbar nett von Euch.
Schönen Feiertag noch.
Gruß Kerstin

AW: Speichern als PDF mit Blattname und aktuellen Mona
01.05.2013 17:23:37
Kerstin
Hallo Hajo,
auch Dir mein Dank für die schnelle Antwort.
MFG Kerstin
Anzeige
;

Forumthreads zu verwandten Themen

Tabelle als PDF speichern
PeTeR

Hallo VBA-Freaks,
ich suche seit Stunden - finde aber nicht den exakt passenden Code, obwohl es zig Einträge zu dem Thema gibt.
Ich will eine Tabelle per VBA in PDF umwandeln u. drucken. Mein Code:
Application.ActivePrinter = "Adobe PDF auf Ne01:"
ActiveWindow.SelectedSheets.Pri...
25.10.2008 23:06:00
Thread-ID: 1019291
5 Beiträge
Gesamte Arbeitsmappe als pdf
Tom

Hallo,
ich meine es gibt die Möglichkeit, die gesamte Arbeitsmappe, also alle Tabellenblätter als ein pdf per Mail zu versenden .... Doch leider weiß ich nicht mehr wie das geht.
Wer hat ne Lösung?
Gruß und Danke
TOM
16.02.2009 17:47:00
Thread-ID: 1051232
6 Beiträge
Einzelnes Tabellnblatt in PDF Datei speichern
Jens

Ich habe folgendes Problem, ich möchte ein einzelnes Tabellenblatt aus Excel heraus in eine Pdf Datei mittels command Buttom und Makro/ VBA speichern. Als PDF Prog nutze ich Adobe Acrobat Prof 8.0(bringt nen Converter mit).
THX im Voraus
27.02.2009 15:30:50
Thread-ID: 1054824
14 Beiträge
PDF-File als neues Tabellenblatt
StefanS

Hallo,
meine Vorgesetzten treiben mich noch in den Wahnsinn!!!!
Besteht generell die Möglichkeit per Hyperlink auf eine Pdf-Datei (z.B. in Sheet("Register_1")),
diese als neues Tabellenblatt (z.B. Sheet("Datenblatt")) einzufügen? Habe keine Ahnung, ob so etwas überhaupt mit Excel mö...
18.05.2009 15:42:00
Thread-ID: 1075923
3 Beiträge
Blatt per VBA mit FreePDF als PDF-Datei sichern
Mike

Hallo,
wer kann mir einen Weg oder Beispiel zeigen, wie ich per VBA mit FreePDF ein Worksheet als PDF-Datei speichern kann?
Vielen Dank, Mike.
02.10.2009 00:05:48
Thread-ID: 1106727
5 Beiträge
Tabellenblatt als pdf und speichern
Horst

Hallo,
ich möchte über VBA ein Tabellenblatt als pdf speichern.
Momentan kann ich dank dem Makrorecorder ein pdf Dokument mit der BroadGun PDF Machine erstellen,
Acrobat Reader startet und zeigt das Dokument an.
Mein Wunsch wäre jedoch , dass das PDF Dokument auch gleich mit e...
27.11.2009 15:18:04
Thread-ID: 1120555
3 Beiträge
mit PDF Creator ein Tabellenblatt als pdf abspeich | Herbers Excel-Forum
Horst
Hallo
ich will ein Tabellenblatt als pdf abspeichern.
Dank diesem Forum habe ich einen Code gefunden, welcher jedoch bei mir nicht richtig funktioniert.
Wenn ich bei Break (siehe Code) stoppe, ist der PDFCreator geöffnet, das umzuwandelne Tabellenblatt
ist eingetragen und der Status...
14.01.2010 16:16:29
Thread-ID: 1129991
6 Beiträge
Tabellenblatt als Datei speichern
Murat

Was stimmt bei dem VBA code nicht bekomme Fehler bei kompilieren variable nicht definert
Ich möchte die einzeln Tabellenblätter als Datei Speichern. ich habe 20 Tabellenblätter in einer Datei aus der sollen 20 Dateien werden. Dateiname steht immer in Zelle i2 des jeweiligen tabellenblattes....
19.01.2010 16:27:42
Thread-ID: 1131114
6 Beiträge
Anzeige
Blatt als PDF speichern (Excel 2007)
Gerhard

Hallo,
in einem gelegentlich langsamen Intranet muss ein Excel-Blatt von verschiedenen Netzwerk-PC aus mit diesem Code in einen vorhandenen oder neu erzeugten Ordner gespeichert werden.
Immer wieder kommt es vor, dass nicht in den mit If Dir(spath, 16) = "" Then MkDir (spath) erzeug...
10.03.2010 12:31:39
Thread-ID: 1144818
3 Beiträge
Tabellenblatt als PDF und als E-Mail senden VBA
andreas

Hallo zusammen,
knifflige Aufgabe, habe eine Anwendung mit mehreren Tabellenblättern.
Jetzt will ich nach betätigen des CommandButton1 Tabellenblatt1 als PDF generieren, der Name des PDF soll sich aus Wert Zelle A1&B1 zusammensetzen, zur PDF Erzeugung habe ich PDF Creator als Druck...
09.06.2010 14:37:06
Thread-ID: 1161083
6 Beiträge
Blatt als PDF-Datei abspeichern
WalterK

Hallo,
in der Recherche habe ich einen Code gefunden mit dem Blätter als PDF-Datei gespeichert werden. Auf meine Bedürfnisse angepasst funktioniert er tadellos.
Eine kleine Änderung bekomme ich aber nicht hin.
Es geht um die Zeile sPDFName = "Arbeitszeitnachweis .....
MonatJahr...
16.07.2010 22:10:25
Thread-ID: 1167519
6 Beiträge
Mehrere Tabellenblätter als mehrere PDF
Thomas

Hallo,
ich habe ein Excel mit x verschiedenen Tabellenblättern, die als Name des Tabellenblattes jeweils den Namen des zu erzeugenden PDF tragen.
Jedes Tabellenblatt über "speichern unter - als PDF nur aktives Blatt" und dann den Namen zu vergeben ist bei fast 400 Tabellenblättern in 3...
11.06.2011 07:20:38
Thread-ID: 1218071
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Excel: Blatt als PDF speichern mit Blattname und Datum

Schritt-für-Schritt-Anleitung

  1. Makro aktivieren: Öffne Excel und gehe zu Entwicklertools > Visual Basic, um den VBA-Editor zu öffnen.

  2. Neues Modul einfügen: Klicke mit der rechten Maustaste auf VBAProject (DeineDatei.xlsx) und wähle Modul einfügen.

  3. Code einfügen: Füge den folgenden Code in das Modul ein:

    Sub saveAsPDF()
   Dim vntFile As Variant
   vntFile = Application.GetSaveAsFilename(ThisWorkbook.Path & "\" & ActiveSheet.Name & "_" & _
   ActiveSheet.Range("C3").Value & "_" & Mid(Range("B2"), 7) & ".pdf", "PDF Dateien (*.pdf), *.pdf", Title:="Als PDF Speichern")
   If vntFile <> False Then
       ActiveSheet.ExportAsFixedFormat _
       Type:=xlTypePDF, _
       Filename:=vntFile, _
       Quality:=xlQualityStandard, _
       IncludeDocProperties:=True, _
       IgnorePrintAreas:=False, _
       OpenAfterPublish:=True
   End If
End Sub

  4. Makro ausführen: Schließe den VBA-Editor und gehe zurück zu Excel. Führe das Makro über Entwicklertools > Makros aus.

Häufige Fehler und Lösungen

  • Fehler: #Wert! beim Ausführen des Makros
    Lösung: Stelle sicher, dass die Zelle B2 tatsächlich einen Text im Format "Datum April 2013" enthält. Überprüfe die Formatierung der Zelle.

  • Fehler: PDF wird nicht gespeichert
    Lösung: Prüfe, ob der Pfad, den du für das Speichern angibst, existiert. Wenn nicht, erstelle den entsprechenden Ordner.

Alternative Methoden

  • Einzelnes Blatt als PDF speichern: Du kannst auch ohne Makro direkt in Excel ein Blatt als PDF speichern. Gehe zu Datei > Speichern unter, wähle das Format PDF und stelle sicher, dass du nur das aktive Blatt auswählst.

  • Excel Arbeitsmappe als PDF speichern: Um die gesamte Arbeitsmappe in ein PDF zu exportieren, gehe zu Datei > Exportieren > PDF/XPS-Dokument erstellen.

Praktische Beispiele

  • Beispiel 1: Du möchtest ein Tabellenblatt mit dem Namen "Umsatz" und dem Inhalt von C3 (z.B. "Q1 2023") sowie dem Datum aus B2 (z.B. "April 2023") speichern. Das gespeicherte PDF wird den Namen "Umsatz_Q1 2023_April 2023.pdf" haben.

  • Beispiel 2: Wenn du eine Excel-Datei mit mehreren Blättern hast und jedes Blatt einzeln als PDF speichern möchtest, kannst du eine Schleife im VBA-Code verwenden, um alle Blätter durchzulaufen und sie nacheinander als PDF zu speichern.

Tipps für Profis

  • Verwendung von Variablen: Um den Code flexibler zu gestalten, kannst du Variablen für die Zellreferenzen (z.B. C3 und B2) verwenden, damit du diese einfacher anpassen kannst.

  • PDF-Exportoptionen: Experimentiere mit den Optionen im ExportAsFixedFormat-Befehl, wie Quality, um die Qualität der PDF-Datei zu optimieren.

  • Dokumentation: Halte deine Makros gut dokumentiert, damit du oder andere Benutzer später verstehen, was der Code macht.

FAQ: Häufige Fragen

1. Kann ich mehrere Blätter gleichzeitig als PDF speichern?
Ja, du kannst einen VBA-Code verwenden, der alle Blätter durchläuft und sie nacheinander als PDF speichert.

2. Wie kann ich den Speicherort für das PDF ändern?
Ändere den Pfad in der GetSaveAsFilename-Funktion im VBA-Code, um den gewünschten Speicherort anzugeben.

3. Wie kann ich sicherstellen, dass nur die sichtbaren Bereiche gespeichert werden?
Verwende die Option IgnorePrintAreas:=False im ExportAsFixedFormat-Befehl, um nur die druckbaren Bereiche zu exportieren.

4. Ist es möglich, ein Arbeitsblatt in ein anderes Format als PDF zu speichern?
Ja, du kannst die Methode SaveAs verwenden, um das Arbeitsblatt in verschiedenen Formaten zu speichern, z.B. als Excel-Datei oder CSV.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige