Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Excel-Abspeicherung automatisch in PDF

Betrifft: Excel-Abspeicherung automatisch in PDF von: HabeEineFrage
Geschrieben am: 05.10.2020 13:06:04

Hallo,
besteht die Möglichkeit bei Speicherung einer Excel-Datei automatisch eine PDF zu erstellen? LG

Betrifft: HabeeineAntwort - Ja (owT)
von: Bernd
Geschrieben am: 05.10.2020 13:12:29



Betrifft: AW: HabeeineAntwort - Ja (owT)
von: HabeEineFrage
Geschrieben am: 05.10.2020 13:14:04

Wie kann man das umsetzen? Brauche diesbezüglich Hilfe. LG

Betrifft: AW: HabeeineAntwort - Ja (owT)
von: Pierre
Geschrieben am: 05.10.2020 13:28:02

Hallo,

nur ein Beispiel:
'einfügen unter "Diese Arbeitsmappe"
'alternativ auch als Modul, dieses mit einem Button verknüpfen
Private Sub Workbook_BeforeClose()
'sorgt dafür, dass ein bestimmter Bereich als PDF unter vorgegebenen Namen gespeichert wird
Dim Datei As String

Datei = "Bestellung_" & Format(Date, "DD.MM.YYYY") & ".pdf"         'Bestellung_Tagesdatum.pdf - _
> Text anpassen
'Datei = ThisWorkbook.Sheets("Tabelle1").Range("G2") & ".pdf"       'diese Zeile, wenn  _
Dateiname aus Zelle stammt, Zelle anpassen

    ActiveSheet.Range("B4:G151").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Datei, Quality:= _
xlQualityStandard, _
     IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True            ' _
Bereich anpassen, der gespeichert werden soll
                                                                                            ' _
OpenAfter...Datei öffnen oder nicht? Anpassen
                                                                                            ' _
ActiveSheet = aktives Blatt; Sheets("Tabelle1") = bestimmtes Blatt
End Sub
Gruß Pierre

Betrifft: AW: HabeeineAntwort - Ja (owT)
von: HabeEineFrage
Geschrieben am: 05.10.2020 14:51:01

Ok, vielen Dank fürs schnelle Antworten.
Ich versuche dein Makro umzusetzen, hoffe ich kriege es hin! :-)
LG

Betrifft: ansonsten einfach melden...
von: Pierre
Geschrieben am: 05.10.2020 14:52:19

Leider ist die Formatierung hier durch das Forum bisschen bescheiden.

Betrifft: ist doch schön, mit Code<pre> eingefügt-kwT
von: Helmut
Geschrieben am: 05.10.2020 15:46:51

Sub test()
If MsgBox("Datei als PDF speichern?", vbYesNo) = vbYes Then
Dateiname = InputBox("Bitte Dateinamen eingeben!")
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Test\" & Dateiname, Quality:=xlQualityStandard, IncludeDocProperties _
        :=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Else
End If
End Sub


Betrifft: AW: ist doch schön, @Helmut
von: Pierre
Geschrieben am: 05.10.2020 15:52:34

Hallo Helmut,

Da sind einige Umbrüche drin, die im Original nicht da sind, das meinte ich.
Da habe ich tatsächlich nur einen Umbruch bei den ganzen Parametern.

Aber egal, das schafft er wohl.

Gruß Pierre

Betrifft: AW: ist doch schön, @Helmut
von: HabeEineFrage
Geschrieben am: 06.10.2020 14:25:23

Hallo,

eins möchte ich noch gerne wissen.
Kann ich auch bestimmen, wo ich die PDF-Datei ablegen möchte?
Wenn ja, wie ist das umzusetzen? LG

Betrifft: es geht vieles ...
von: Pierre
Geschrieben am: 06.10.2020 14:36:14

Hallo,

diese beiden Zeilen noch unter der Dimensionierung einfügen, das dürfte reichen:
    ChDrive "C"                     'Laufwerk anpassen
    ChDir "C:\wasweißich\"          'Ordner anpassen
Gruß Pierre

Betrifft: Warum wird solchen Faulpelzen geantwortet?
von: Helmut
Geschrieben am: 06.10.2020 14:51:50

Recherche- Frage bzw.Problem eingeben-zig Lösungen vorhanden.

Ach ja, da muss man ja selber tätig werden.....
..da lasse ich lieber andere für mich arbeiten.
Schöne Einstellung :-(

Betrifft: Hast du doch auch?
von: Pierre
Geschrieben am: 06.10.2020 15:05:42

du hast doch ebenfalls eine Lösung angeboten, oder irre ich mich?

Und jetzt diese beiden Zeilen schnell hier einzutippen, naja, das ist jetzt nicht soooo schlimm.

Grundsätzlich hast du allerdings recht.

Gruß Pierre

Betrifft: Nee, Helmut hatte dir geantwortet, ...
von: Luc:?
Geschrieben am: 06.10.2020 18:25:10

…Pierre,
und ansonsten nur zu Recherche aufgefordert!
Das Problem mit den automatischen Umbrüchen kann vermieden wdn, wenn man dem eingeblendeten Hinweis beim Ersterstellen einer Frage folgt und forumsbreitengerechte Umbrüche selbst vornimmt und natürlich auch <pre>-tags setzt.
Gruß, Luc :-?
„Die universelle Befähigung zur Unfähigkeit macht jede menschliche Leistung zu einem unglaublichen Wunder.“ Stapps ironisches Paradoxon

Betrifft: Recherche nutzen ! owT
von: Helmut
Geschrieben am: 05.10.2020 13:50:15