Microsoft Excel

Herbers Excel/VBA-Archiv

mehrere Tabellenblätter als PDF mit Name und Datum


Betrifft: mehrere Tabellenblätter als PDF mit Name und Datum von: ManniD
Geschrieben am: 31.07.2018 12:08:53

Würde gerne mehrere Tabellenblätter, aus einer komplexen Tabelle als PDF gespeichert bekommen. Wobei die einzelnen PDFs je eine Tabelle mit Name und Datum bekommen sollen.

Die Speicherform sollte möglichst "Tabelle15-20180731" sein.

Geht sowas?

VG ManniD

  

Betrifft: AW: mehrere Tabellenblätter als PDF mit Name und Datum von: Torsten
Geschrieben am: 31.07.2018 13:06:51

Hi Manni,

sind das immer die gleichen Tabellenblaetter? Oder ist das variabel?


  

Betrifft: AW: mehrere Tabellenblätter als PDF mit Name und D von: Michael (migre)
Geschrieben am: 31.07.2018 13:12:38

Hallo!

In der Recherche/im Archiv zu suchen ist mühsam, stimmt's? ;-).

Alle Blätter der Mappe als PDF einzeln speichern:

Sub a()
    
    Dim Wb As Workbook: Set Wb = ThisWorkbook
    Dim Ws As Worksheet, Pfad$
    
    Pfad = "C:\DeinVerzeichnis\DeinUnterverzeichnis\"
    Pfad = IIf(Right(Pfad, 1) = "\", Pfad, Pfad & "\")
    
    For Each Ws In Wb.Worksheets
        Ws.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=Pfad & Ws.Name & "-" & Date & ".pdf", _
            quality:=xlQualityStandard, _
            includedocproperties:=True, _
            ignoreprintareas:=False, _
            openafterpublish:=False
    Next Ws
    Set Wb = Nothing: Set Ws = Nothing
End Sub
Nur bestimmte Blätter der Mappe als PDF einzeln speichern:
Sub b()

    Dim Wb As Workbook: Set Wb = ThisWorkbook
    Dim aSh, i&, Pfad$
    
    Pfad = "C:\DeinVerzeichnis\DeinUnterverzeichnis\"
    Pfad = IIf(Right(Pfad, 1) = "\", Pfad, Pfad & "\")
    
    aSh = Array("Tabelle7", "Tabelle12", "Tabelle21")
    
    For i = LBound(aSh) To UBound(aSh)
        With Wb.Worksheets(aSh(i))
            .ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:=Pfad & aSh(i) & "-" & Date & ".pdf", _
                quality:=xlQualityStandard, _
                includedocproperties:=True, _
                ignoreprintareas:=False, _
                openafterpublish:=False
        End With
    Next i
    Set Wb = Nothing: Erase aSh
End Sub
Pfad bzw. Blattnamen (b) musst Du selbst anpassen.

LG
Michael


  

Betrifft: AW: mehrere Tabellenblätter als PDF mit Name und D von: ManniD
Geschrieben am: 31.07.2018 13:23:36

Sorry, hab aber immer nur die Variante gefunden, wo entweder alle Blätter in einer Datei gespechert wurden oder aber komplett alle Tabellenblätter als PDF gespeichert werden sollten, Ich brauch aber 5 Tabellenblätter von 35 und dies mit Tagesdatum als Erkennung, weil die Dateien täglich versendet werden müssen.


  

Betrifft: AW: Also hast Du ja jetzt was Du brauchst, oder? von: Michael (migre)
Geschrieben am: 31.07.2018 13:25:51




  

Betrifft: AW: mehrere Tabellenblätter als PDF mit Name und D von: ManniD
Geschrieben am: 31.07.2018 13:25:27

Sub b() sieht ganz gut aus. Werde ich mich dran versuchen.

Auf jeden Fall schon einmal vielen Dank.


  

Betrifft: AW: Viel Erfolg, Danke für die Rückmeldung, owT von: Michael (migre)
Geschrieben am: 31.07.2018 13:26:11




  

Betrifft: AW: mehrere Tabellenblätter als PDF mit Name und D von: Torsten
Geschrieben am: 31.07.2018 13:29:34

hallo,

das Datumsformat musst du auch noch anpassen.

Anstatt Date machst du Format(Date, "yyyymmdd")

Dann wird es so, wie du wolltest.

Gruss Torsten


  

Betrifft: AW: mehrere Tabellenblätter als PDF mit Name und D von: ManniD
Geschrieben am: 31.07.2018 13:32:30

Ja Danke, so sollte alles wie gewünscht klappen. Morgen werde ich es ausprobieren können, heute ist die Zeit leider zu knapp.

Manni


Beiträge aus dem Excel-Forum zum Thema "mehrere Tabellenblätter als PDF mit Name und Datum"