Office: Nur befüllte Seiten drucken

Hallo,

ich bräuchte dringend Hilfe bei einem Excel-Thema.
Und zwar:
Ich habe eine Datei erstellt mit etlichen Registerblättern.
Jedes Registerblatt enthält 11 Seiten - Auf der 1. Seite ist immer eine Zusammenstellung von den Ergebnissen der anderen 10 Seiten. Diese 10 Seiten werden von verschiedenen Auftragnehmern ausgefüllt. So, jetzt kann es sein das von den 10 Seiten nur 4 Seiten von den Auftragnehmern befüllt worden ist. Die restlichen 6 sind zwar nicht ausgefüllt - aber trotzdem stehen Werte und Texte in den Zellen. Jetzt möchte ich, dass wenn dieser Fall eintritt, diese restlichen 6 Seiten nicht gedruckt werden - und sie sollen nur gedruckt werden, wenn z.b. ein gewisser Wert erfüllt worden ist (z.B. Firmenname wurde eingetragen). Ich hab' jetzt schon so viel gesucht, aber bin leider nicht fündig geworden - evt. hat jemand eine Idee. Wäre wirklich wirklich super.

Am Anfang gibt es noch ein Deckblatt, ein Inhaltsverzeichnis & eine Zusammenstellung der Ergebnisse von allen Registerblättern....diese sollten auch immer gedruckt werden.


Danke und LG

 

Hallo,

das liest sich wie die Beschreibung eines schlechten Dateiaufbaus. Zeige mal eine Beispieldatei.

 

Hallo Klaus-Dieter,

danke für deine Antwort.
Anbei die Datei.
Wenn du das Excel öffnest, siehst du gleich die beiden Register KG1 und KG1-AN (die anderen sind ausgeblendet). In dem Register KG1-AN gibt es 10 Seiten. Auf jeder Seite ist die selbe Vorlage hinterlegt. Gedruckt sollen die Seiten aber nur, wenn bspw. der Firmenname oben eingetragen wird. Sonst kommen etliche nicht ausgefüllte Seiten jedes mal hinzu. Und da die KG von 1-9 gehen. Ist das dann schon eine Menge.

 

Hallo STG,

das ist ungefähr das, was ich befürchtet hatte. So etwas geht man ganz anders an. Von deinen 10 Formularen auf dem Blatt Zusammenstellung - KG1- AN reicht eines, wenn die Daten , die da rein sollen in einem Datenblatt erfasst werden. Je nach dem, wie viele Datensätze das dann sind, wird das Formular vergleichbar einem Serienbrief in der erforderlichen Anzahl gedruckt. Alles viel einfacher.

 

Hi,

markiere alle Zellen aller zu druckenden Seiten, gehe auf das Register: Seitenlayout -> Befehlsgruppe: Seite einrichten -> Schalter: Druckbereich -> Druckbereich festlegen - dann werden nur die Seiten gedruckt die sich innerhalb des festgelegten Druckbereichs befinden. Nach dem Drucken hebst du den Druckbereich auf demselben Weg wieder auf. Das machst du jedesmal vor und nach dem Drucken.

---

 

Danke mal euch beiden für die Antworten.
Problem ist, dass ich bzw. wir keinen Einfluss haben wie viele Seiten verwendet werden. Wir wissen nicht ob 3, 4, oder alle 10 befüllt werden. Hätte gedacht es gäbe eine Formel/Makro o.ä. die besagt, wenn in dem Blatt XY etwas eingetragen wurde, dann wird es gedruckt. Wenn in KG1-AN 4 Seiten befüllt worden sind dann werden diese gedruckt.. wenn in KG2-AN 7 Seiten befüllt werden dann werden diese auch mitgedruckt usw... Man muss auch bedenken, dass die Datei im Anschluss gesperrt wird, und die Firmen nur ihre relevanten Daten eintragen können.

 

Und wo ist das Problem, nach der von mir beschriebenen Methode vorzugehen???

---

 

Ich hätte es gerne automatisiert gehabt. Deine Methode scheint natürlich zu funktionieren. Ich müsste immer diese Seiten markieren die befüllt sind. So muss man aber auch jede Seite kontrollieren ob etwas drin steht. Wenn es eine Formel o.ä. gäbe, wo eine Bedingung erfüllt wird und es dann gedruckt wird, wäre das was ich gesucht hätte.

 

Hallo STG,

meinen Vorschlag hast du nicht verstanden? Er macht aus meiner Sicht genau das, was du haben möchtest. Es ist auch viel einfacher Daten in eine Liste zu schreiben, als ein Formular auszufüllen.

 

Mithilfe einer Formel kannst du nicht drucken - das ginge nur per VBA.
Welche Zelle muss jeweils ausgefüllt sein damit festgelegt ist, dass diese Seite gedruckt werden soll?

---

 

- ich verstehe was du mir sagen willst, ich tüftle nur gerade daran das umzusetzen.

 

@Klaus-Dieter,

vom Prinzip hast du natürlich Recht, aber das hilft dem Fragesteller nicht dabei, die Anzahl an gleichzeitig zu druckenden Seiten automatisch festzulegen.

---

 

Ich tu mir etwas schwer das zu formulieren.
Wir haben 9 Kostengruppen (KG's) - hier gibt es jeweils eine Gesamtübersicht je KGX und die für die Auftragnehmer (KGX-AN)


Sollte bspw. in KG6-AN kein Auftragnehmer etwas reingeschrieben haben, so soll KG6-AN und auch logischerweise die Zusammenstellung KG6 nicht gedruckt werden.

Wenn in KG1-AN, 3. Auftragnehmer etwas reingeschrieben haben, so sollen diese 3 + die Zusammenstellung (KG1) gedruckt werden.

Ich habe die Hoffnung auch schon fast aufgegeben, da ich denke das man das eig. nicht lösen kann :D

 

Mit folgendem Makro kannst du die gefüllten Seiten des aktiven Tabellenblattes und das Tabellenblatt vor dem aktiven Tabellenblatt drucken:

Code:

Sub Drucken()
    Dim rngBereich As Range
    Dim rngBlatt As Range
    Dim intZaehler As Integer
    Set rngBereich = Range("A2:A5,L2:L5,U2:U5,AD2:AD5,AM2:AM5,AV2:AV5,BN2:BN5,BW2:BW5,CF2:CF5")
    For Each rngBlatt In rngBereich.Areas
        If Application.CountA(rngBlatt) = 4 Then intZaehler = intZaehler + 1
    Next rngBlatt
    If intZaehler > 0 Then
        ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), Cells(81, intZaehler * 9)).Address
        ActiveSheet.PrintPreview
        Worksheets(ActiveSheet.Index - 1).PrintPreview
    End If
End Sub

Es wird davon ausgegangen, dass immer alle 4 Zellen im Bereich der Zeilen 2 bis 5 gefüllt sein müssen.

Ich habe den Code zum Testen erstmal so geschrieben, dass nur die Druckvorschau angezeigt wird. Wenn du direkt drucken willst, musst du an beiden Stellen den Befehl PrintPreview durch PrintOut ersetzen.

---

 

Super danke, hab' das mal probiert - muss mich da noch etwas spielen (hab bis dato noch nie mit Makro's gearbeitet).
Schaut aber schon so danach aus, so wie ich es möchte. Hab zwar die Zellen geleert - wird aber dennoch gedruckt...
Muss ich mir noch ansehen.
Aber vielen Dank für die Mühe!