Excel-Reiter als PDF speichern und abstellen

Forumthread: Excel-Reiter als PDF speichern und abstellen
5 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Excel-Reiter als PDF speichern und abstellen

20.12.2018 13:04:12

Sandra

Hallo zusammen,
ich weiß nicht, ob mir hier jemand helfen kann. Aber ich hoffe es. :-)
Ich würde gerne per Makro aus meiner Excel-Datei die Reiter "Auswertung" und "Einträge" als PDF mit Tagesdatum und Uhrzeit speichern und auf dem Laufwerk xy abstellen.
Kann mir einer von Euch helfen?
Vielen lieben Dank im Vorfeld!
Sandra

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Nachfrage..

20.12.2018 13:06:13

UweD
AW: Nachfrage..

20.12.2018 13:13:20

Sandra
AW: Nachfrage..

20.12.2018 13:20:55

UweD
Uwe: Prima, funktioniert super. Danke schön!

21.12.2018 09:27:49

Sandra
Danke für die Rückmeldung owT

24.12.2018 13:56:22

UweD

Nachfrage..

20.12.2018 13:06:13

UweD

Als ein PDF, oder beide Blätter Einzeln?

AW: Nachfrage..

20.12.2018 13:13:20

Sandra

Hallo Uwe,
in einem PDF reicht vollkommen aus.
Merci!

AW: Nachfrage..

20.12.2018 13:20:55

UweD

Hallo nochmal.
So..

Sub Makro2()
    Dim Pfad As String, Datei As String
    Pfad = "X:\Temp\" 'mit \ am Ende 
    Datei = Format(Now, "YYYYMMDD_hhmm")
    
    Sheets(Array("Auswertung", "Einträge")).Select 'beide Blätter auswählen 
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=Pfad & Datei & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=True 'oder false 
    
    Sheets("Auswertung").Select 'Gruppierung aufheben 

End Sub