Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
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
1848to1852
1848to1852
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel zu PDF + Name speichern

Forumthread: Excel zu PDF + Name speichern

Excel zu PDF + Name speichern
07.10.2021 13:46:30
Jan
Hallo ich bin auf der Suche nach einem Code der mir eine Excel-Datei automatisch in eine PDF exportiert und dann Dateinamen aus einer bestimmten Zelle (z.B. A1) nimmt .
Wie löse ich dieses Problem. Danke schon mal
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel zu PDF + Name speichern
07.10.2021 14:09:34
Piet
Hallo
den Code fand ich in wenigen Sekunden im Internet, MS Office Forum. Schau mal ob du damit weiterkommst. Im Netzt gibt es massenhaft Beispiele
mfg Piet
  • 
Sub aktivesBlattToPdf()
ChDir "c:\Temp\" 'anpassen 'oder thisworkbook.path
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("F5").Value & Format(Date, "YYYYMMDD") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub

    • Anzeige
    AW: Excel zu PDF + Name speichern
    07.10.2021 15:23:55
    Jan
    Herzlichen Danke für die schnelle Hilfe
    AW: Excel zu PDF + Name speichern
    07.10.2021 14:10:26
    JoWE
    Hallo,
    das hättest Du mit Google recht schnell gefunden.
    Aber es geht z. B. so:
    
Sub speichern_tabelle_in_PDF()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"Dein ZielOrdner\" & Sheets("Tabelle1").Range("A1").Value & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End Sub
    Gruß
    Jochen
    Anzeige
    ;

    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