Thema: Alle Blätter einer Datei wählen und Druckbereich festlegen

Hallo zusammen,

ich habe eine Datei mit mehreren Tabellenblätter. Die Anzahl der Blätter variiert ständig und die Namen der Blätter ist ebenso völlig unterschiedlich.
Die Aufgabe besteht aus drei Teilschritten:

1. Alle Tabellenblätter anwählen, wobei Tabellenblatt 1 und 2 ausgeklammert werden sollen. (In Tabellenblatt 1 möchte ich einen Button installieren, über den das VBA angestoßen wird. Tabellenblatt 2 ist eine Struktur-Vorlage, die nur für neue Blätter kopiert wird, aber keine Daten enthält.

2. Den Druckbereich der Tabellenblätter festlegen: Jede Tabelle hat die gleich Struktur, jedoch eine andere Länge. Es sollen nur die Zeilen gedruckt werden, welche in Spalte A gefüllt sind. Die Tabellen sind je von Spalte A-J gefüllt. Also Zeile A1:Jn wäre der Druckbereich.

3. Das Ganze soll über einen Button, der wie gesagt auf Tabelle 1 erstellt wird, angewählt werden können und nach PDF ausgeworfen werden.

Die Tabelle hat schon ein umfangreiches Makro in Modul 1.
Kann man nun hier ein separates Makro in Modul 2 speichern, das dann über besagten Button in Tabelle 1 angewählt wird?

Wenn ich es recht überlege, könnte man bei Schritt 1 den Ausschluss von Tabelle 1+2 ja auch später beim Druck manuell machen, sprich die PDF nur ab Seite 3 drucken. Das macht das VBA dann vielleicht etwas einfacher.

Es wäre toll, wenn mir jemand helfen könnte.

Liebe Grüße
Gabi

Einfach Makrorecorder einschalten, auf "Drucken" gehen, PDF-Drucker auswählen, "ab Seite 3" einstellen und gesamte Arbeitsmappe drucken.
Dann hast du dein Makro.

Hi Gabi,

da, wo ich Onur zustimme, ist:

Zeig bitte per Upload eine Bsp-Datei mit genügend Blättern und entsprechend genügend Bsp-Daten innerhalb der Blätter.

Denn etwas zu sehen bedeutet meist, auch etwas besser, bzw richtig zu verstehen - als wenn man "nur" Beschreibungen folgen muss, bei denen ja der Interpretationsspielraum sehr groß sein kann.

Außerdem: mit einer Datei könnten auch wir...mit dir...testen.

Ciao
Thorsten

Hallo Ihr zwei,

hier nun die Beispieldatei, die auch das vorhandene VBA als Modul 1 enthält.

https://www.herber.de/bbs/user/168932.xlsm

Gruß
Gabi

Das einem Button zuweisen:

Sub Makro1()

    Dim sh, lz

    For Each sh In ThisWorkbook.Sheets

        lz = sh.Cells(sh.Rows.Count, 1).End(xlUp).Row

        sh.PageSetup.PrintArea = "A1:J" & lz

    Next sh

    ActiveWorkbook.PrintOut From:=3, To:=32766, Copies:=1, Collate:=True, _

        IgnorePrintAreas:=False

End Sub

Da kommt folgende Fehlermeldung:

Fehler beim Kompilieren:
Außerhalb einer Prozedur ungültig.

Wo GENAU kommt die Meldung und WO hast du das Makro eingebaut?

Onur, Du hast Dir Deinen Feierabend verdient! Es funktioniert!
Super. Vielen Dank. Das hätte ich alleine nie hinbekommen!

Danke und einen schönen Abend!

LG Gabi

Hallo Onur,

kann es sein, dass die beiden Makros sich tangieren? Denn mein ursprüngliches Makro in Modul1 bringt nun eine Fehlermeldung beim Sortieren. Hängt das vielleicht mit dem gesetzten Druckbereich zusammen?

Fehler bei folgendem Befehl in Modul1:
ZielWB.Worksheets(ServiceMA).Sort.SortFields.Add2 Key:=Range _
("A5:A300"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal

Ich muss mich jetzt ausloggen und kann erst morgen früh wieder antworten. Bis dahin

Gruß
Gabi

Könnte ich nur testen, wenn ich die Quelldatei hätte.

Guten Morgen Onur,

hier ist die Quelldatei. Danke für Deine Hilfe.

https://www.herber.de/bbs/user/168942.xlsx

LG
Gabi

Das Problem ist gelöst.

Hallo,

vielen Dank für die schnelle Antwort. Sie berücksichtigt jedoch nicht, dass jede Tabelle einen anderen Druckbereich hat, der zunächst für jede Tabelle einzeln festgelegt werden muss.

Gruß
Gabi

Wozu? Brauchst du nicht - wenn doch jedes mal das ganze Blatt ausgedruckt werden soll. Es wird das ganze Blatt ausgedruckt.

Hallo,

es wäre hilfreich, wenn Du die Aufgabenstellung mal detailliert lesen würdest.
1. Jedes Blatt hat einen Druckbereich, der festgelegt werden muss, nämlich nur die Zeilen, welche in Spalte A Daten enthalten.
2. Die Datei hat eine variable Anzahl von Blätter.

Gruß
Gabi

Noch hilfreicher wäre es, wenn du mal eine Beispielsdatei postest.
Wenn in Spalte A nur bis Zeile 20 Daten stehen, stehen denn in den anderen Spalten weiter unten noch etwas ?

Ja, so ist es. In Spalte F und G steht eine Formel bis Zeile 300.

Gut das auch mal zu erfahren.

Hi Onur,

ich möcht mich bei dir entschuldigen!
Es ist egal, was ich "offtopic" über den einen oder anderen Beitrag (egal von wem) denke.
Solche Bemerkungen, wie diese, auf die ich gerade antworte, gehören einfach nicht hierher!

Es tut mir leid.

Ciao
Thorsten

Kann mir jemand helfen? Die Aufgabe ist noch nicht gelöst. Ich glaube, ich habe vergessen, das Häkchen bei ungelöst zu setzen.

LG Gabi

Zitat aus 1. Beitrag: "...2. Den Druckbereich der Tabellenblätter festlegen: Jede Tabelle hat die gleich Struktur, jedoch eine andere Länge. Es sollen nur die Zeilen gedruckt werden, welche in Spalte A gefüllt sind...

Ich interpretiere das so, dass es in allen Blättern, die gedruckt, bzw als PDF gespeichert werden sollen, mehr Zeilen enthalten als gedruckt werden sollen - da ja - nur gedruckt werden soll, was in Spalte A Inhalte hat = da gibt es vllt, bzw mit Sicherheit noch andere Spalten - unterhalb von letzter Eintrag in A - mit Werten, die eben nicht mitgedruckt (PDF-gespeichert) werden sollen, oder Gabi?