Thema Datum  Von Nutzer Rating
Antwort
Rot PDF-Speichern
14.12.2022 07:09:18 Jens
Solved
14.12.2022 09:53:49 Jens
Solved
14.12.2022 10:07:42 Der Steuerfuzzi
***
Solved
14.12.2022 10:08:13 Der Steuerfuzzi
Solved
14.12.2022 10:25:14 Gast73968
Solved
14.12.2022 10:27:20 Jens
Solved

Ansicht des Beitrags:
Von:
Jens
Datum:
14.12.2022 07:09:18
Views:
77
Rating: Antwort:
 Nein
Thema:
PDF-Speichern

Hallo!

Ich benutze derzeit diese VBA um mein Excel auf Knopfdruck als pdf mit dem Dateinamen und in den gleichen Speicherort zu speichern.

Sub SheetsToPdf()

With ThisWorkbook

    .Sheets(Array("Tabelle 1", "Tabelle 2", "Tabelle 4", "Tabelle 6")).Select

    .ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

      .Path & "\" & Replace(ThisWorkbook.Name, ".xlsm", "") & ".pdf", Quality:=xlQualityStandard, _

      IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

    .ActiveSheet.Select

  End With

End Sub

Dies Funktioniert soweit perfekt. Nun möchte ich aber, dass immer alle Register die Angezeigt sind als pdf-gespeichert werden. Durch eine Umstellung der Datei kann es sein, dass noch diverse weitere Register sichbar sind oder es zB nur "Tabelle 1" ist. Je nach Bearbeitsungsstand ändert sich dies ständig. All meine Versuche in den bestehenden Code "ActiveWorkbook" mit anstatt des vorgewählten "Array" einzubringen sind leider gescheitert. Ich hoffe hier kann mir jemand helfen. 

 

LG Jens


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot PDF-Speichern
14.12.2022 07:09:18 Jens
Solved
14.12.2022 09:53:49 Jens
Solved
14.12.2022 10:07:42 Der Steuerfuzzi
***
Solved
14.12.2022 10:08:13 Der Steuerfuzzi
Solved
14.12.2022 10:25:14 Gast73968
Solved
14.12.2022 10:27:20 Jens
Solved