Office: (Office 2010) Zeilen beim Drucken ausblenden

Hallo Mitstreiter,

Ich soll für unseren Bereich eine ziemlich umfangreiche Urlaubsliste mit Excel basteln. die dann die jeweiligen Abteilungen zukünftig nutzen können.

Nun ist es bei uns wie im richtigen leben und die Abteilungen haben unterschiedlich viele Kolleginnen und Kollegen und teilen auch noch unterschiedlich oft ihre Urlaube. Daraus ergibt sich auch jeweils eine unterschiedlich lange Urlaubsliste. Und zwar von einer Seite bis zu 3 Seiten. Wobei alle Seiten eine Kopfzeile haben und die letzte Seite noch einen Bereich für die Unterschriften besitzt.

Nun zu meinem Problem: Ich habe einen Druckbereich C2 bis K125. Das sind drei Seiten. Jetzt möchte ich, dass wenn die Zelle G40 leer ist, dass dann die Zeilen 40-118 bzw. die Zelle G89 leer ist, dann die Zeilen 89-118 beim Drucken ausgeblendet werden und danach wieder eingeblendet werden. Steht etwas in der Zelle G89, dann soll natürlich der gesamte Druckbereich auch gedruckt werden. Dadurch soll vermieden werden, dass Excel leere Seiten druckt und die Unterschriftenleiste dennoch immer am Ende der Urlaubsliste steht.

Kann mir jemand helfen?

Ich habe mal zum besseren Verständnis ein Muster des entsprechenden Tabellenblattes hinzu gefügt.

Ich danke euch schon mal für eure Mühe

Ganz liebe Grüße

Andreas

 

Hi Andreas,

versuche es mal mit folgendem Code im Codemodul DieseArbeitsmappe:

Code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    With Worksheets("Tabelle1")
        If .Range("G40") = "" Then
            .Rows("40:118").Hidden = True
        ElseIf .Range("G89") = "" Then
            .Rows("89:118").Hidden = True
        End If
    End With
End Sub

Nach dem Drucken musst du die Zeilen von Hand wieder einblenden.

Bis später,
Karin

 

Unglücklicher Versuch

Hallo Mitstreiter

Ich hab da mal was ausprobiert. Mit einer Hilfsspalte S

PHP:

Sub Drucken()
 If Range("s38").Text = "x" Then
 Rows("39:118").EntireRow.Hidden = True
 If Application.Dialogs(xlDialogPrinterSetup).Show Then
 Worksheets("Formblatt").PrintOut
 ActiveSheet.Rows.Hidden = False
 End If
 End If
 If Range("s78").Text = "x" Then
 Rows("79:118").EntireRow.Hidden = True
 If Application.Dialogs(xlDialogPrinterSetup).Show Then
 Worksheets("Formblatt").PrintOut
 ActiveSheet.Rows.Hidden = False
 End If
 End If
 If Range("S118").Text = "x" Then
 If Application.Dialogs(xlDialogPrinterSetup).Show Then
 Worksheets("Formblatt").PrintOut
 End If
 End If
 End Sub



Jetzt blendet Excel zwar brav die richtigen Zeilen aus, druckt und blendet am ende alles wieder ein, aber leider erfolgt der Ausdruck jetzt auf 3 Seiten. Kopf und Unterschriftenseite werden auf jeweils einem Extrablatt gedruckt.

Ich sags ja, VBA scheint nicht so meins zu sein.

Ich hoffe ihr könnt mir helfen

Gruß
Andreas

 

Hallo Karin,

danke für deinen Tipp
Ich schau es mir gleich mal an. Unsere Nachrichten haben sich gerade überschnitten :-)

Gruß Andreas

 

Hallo Karin,

Bei deinem Code fragt er nach einem Makronamen, ohne in der Auswahl mir Macros anzubieten

Andreas

 

Hi Andreas,

das ist kein Makro sondern eine Prozedur, die automatisch gestartet wird, sobald gedruckt wird - also einfach auf Datei -> Drucken -> Drucken gehen.

Bis später,
Karin