Office: (Office 2013) Mehr als ein Blatt von Excel in eine .pdf Datei speichern

Hallo an alle,

meine Frage an euch betrifft das Kopieren von Excel Blättern in eine .pdf Datei

Mein Code bearbeitet jedes Blatt und wenn drin ein Pivottable vorhanden ist, dann wird der Druckbereich festgelegt
Regelmässig drucke ich mir sämtliche Blätter aus, was mit dem Code gut funktioniert (hier sehr leichte Datei mit fiktiven Namen und Zahlen)

Doch suche ich jetzt, wie ich die Blätter in eine .pdf Datei speichern kann.
Mein Befehl hat zufolge, dass leider nur ein Blatt in .pdf umgewandelt wird, also schaffe ich es nicht, sämtliche Blätter in .pdf zu kopieren

Das verstehe ich nicht, da sich der Befehl doch in eine Schleife befindet, die alle Blätter durchgeht !

Hat jemand eine Ahnung, was ich falsch mache ?

Im voraus, danke für euere Hilfe

:)

 

Hallöchen,

eine Schleife ist schon das Falsche.
Wenn du einfach nur zwei oder mehr Tabellenblätter in ein einziges PDF speichern willst, dann markiere das erste Tabellenblatt, drücke und halte die Strg-Taste und markiere die weiteren Tabellenblätter.
Dann kannst du über den PDF-Drucker/Speichern unter... was das gleiche ist ... nur die ausgewählten Tabellenblätter drucken.

 

Alternativ gibt es dann auch die Möglichkeit, Einzel-PDF's zu mergen, also zu einem Gesamt-PDF zusammenzufassen.

 

Hallöchen Eberhard,

das geht aber nicht mit Excel ... oder hab ich da etwas verpasst ?

Ich würde sagen, da braucht frau ein externes Programm wie PDFsam, PDFCreator, oder ähnliche.

 

Ja. Was spricht gegen ein schlankes Freewareprogramm, für Handbetrieb mit grafischer Oberfläche oder ein Kommandozeilentool, außer dass da vielleicht noch weitere Funktionalität droht?
Als Beispiel: PDFTKBuilder

 

Hallöchen Eberhard,

gar nichts spricht dagegen ... ganz im Gegenteil.
Arbeite selbst gern mit den kleinen Helferlein.

Habe nur gefragt, falls es eventuell eine Excelfunktion gibt, die ich nicht kenne ... und glaub mir ... davon gibt es wahnsinnig viele ... die mir das (Berufs-)Leben erleichtern könnte ...

 

Hallo Sabina, hallo Eberhard,

Vielen Dank für euere Beiträge.
Jedoch suche ich eine per VBA automatisierte Lösung. Wie im ersten Post erwähnt, der Anhang ist eine leichte Version der tatsächlichen Datei, schon weil man beim Upload begrenzt ist und auch weil das Prinzip dasselbe ist, druckt man 15 Blätter oder 150.

In der Tat bearbeite ich wochentlich um die 120 Blätter, und je nach Monat oder Eintrag sind Breite und Höhe der Tabelle sehr unterschiedlich.
Daher der erste Teil meines Codes mit all den variablen Einstellungen für den Druckbereich.

Also nie im Leben kann ich dies per Hand jede Woche unternehmen : keine Zeit, absolut unzuverlässig und kein Bock ! Natürlich auch nicht das ganze auf Papier drucken und scannen (was in dem Fall als Ergebnis gehen würde, aber auf Dauer nicht zumutbar ist).

So suche ich ein Stück Code, wie ich sämtliche Blätter in eine einzige .pdf Datei speichern kann. Und wenn man mehrere Blâtter durchgeht, so schien mir die Schleife eine gescheite Lösung zu sein.

Also mein Problem liegt im Sub b101_Reporting, im select case, rotgefärbt
--- Hier mein Code (was aber leider nur ein Blatt in eine .pdf Datei speichert) ---

Hat jemand eine Idee ? im voraus, danke

Code:

 

Hallo,

du kannst meintwegen den Post #2 so oft ignorieren, wie du möchtest. Auch, wenn er die Lösung für das Problem enthält.

Probiers es doch erst mal aus, bevor du rumnöhlst ... darfst es dir auch gerne mal mit dem Makro-Rekorder aufzeichnen. Vielleicht begreifst du es dann eher.

 

Hallo Sabina,

Ich glaube, wir haben uns falsch verstanden … sorry wenn ich mich nicht richtig ausgedrückt habe.

Im Post #2 empfehlst du, Tabellenblätter zu markieren und im Post #8 schreibst du, dass ich dies auch per Recorder aufzeichnen kann.

Bin aber verwirrt, da ich das Markieren der Blätter doch mache, per Code, indem ich die Tabelle “SELECTiere”






Code:

Ich weiiss auch, dass man alle Blätter einer Datei in .pdf exportieren kann, indem man folgenden Befehl einsetzt :

Code:

Aber eben will ich nur Blätter in pdf exportieren, die Pivo(tables beinhalten (daher der Test If .PivotTables.Count > 0)
Im Anhang gibt es Blätter, ohne Tabelle und genau die will ich nicht


Deswegen verstehe ich nicht, wo’s hapert !

 

Hallo,

mit Hilfe dieses Beitrages habe ich eine Lösung gefunden.

Bei den Tabellenblättern, in denen eine Pivottabelle vorhanden ist, wird der Name in ein Array geschrieben. Zum Schluß wird das Workbook auf Grundlage der enthaltenen Tabellenblätter im Array ausgegeben.
Code:

 

Hallo,

... also nochmal ...
Du möchtest zwei oder mehr Tabellenblätter in ein und die selbe PDF-Datei drucken ... so weit OK ? Gut ...

Dazu musst du gleichzeitig alle die Tabellenblätter ausgewählt (selektiert) haben, die du drucken willst.

Worksheets(Array("Tabelle1", "Tabelle3")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:1Test.pdf"

Das ist es doch, was du möchtest ... oder nicht ?

 

Habe Preserve bei ReDim eingefügt, damit das Array, bei einem Tabellenblatt ohne Pivottabelle, nicht gelöscht wird, sondern nur die Anzahl der Elemente verringert wird. Hier jetzt der Code, der bei mir läuft.

Code:

 

Hallo Hubert,

Danke für deine Hilfe und sorry für die späte Antwort, habe mehrmals probiert, den Code einzusetzen und weiss nicht, warum es versagt.
Am Ende der Sub b101(), gleich nach dem End Select wird End If als falsch angezeigt, mit dem Kommentar “Error Compilation, End If ohne If"

Wenn ich genau schaue, scheint mir alles OK zu sein, für jedes IF gibt es ein End If

Du sagt, der Code läuft bei dir ?

Jedoch gefällt mir deine Lösung : dadurch, dass man den Namen als Variabel ins Arrays speichert braucht man nicht im voraus wissen, wieviele Blätter es gibt und wie die heissen.




Hallo Sabina,

Genau das ist es, aber beim Befehl

Code:

sind hier 2 Blätter angesprochen
Die Wirklichkeit sieht anders aus : weder Name noch Anzahl sind im voraus bekannt

 

Du hast das Hochkomma in dieser Zeile mit dem End If entfernt?

Code:

 

Hallo,

ich würde das so machen.
Code: