Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Verbergen von Zeilen beim Drucken

Forumthread: Verbergen von Zeilen beim Drucken

Verbergen von Zeilen beim Drucken
09.07.2003 10:14:00
Peter Schreiber
Ich möchte, daß vor dem Drucken eines Tabellenblattes automatisch der Inhalt mehrerer Zellen auf den Wert Null geprüft wird
und für diesen Fall, dass die entsprechenden Zeilen für den Druck ausgeblendet werden.
Nach dem Drucken sollen diese Zeilen aber wieder angezeigt werden.
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Verbergen von Zeilen beim Drucken
09.07.2003 10:52:30
ChrisL
Hi Peter
' Klassenmodul DieseArbeitsmappe
Option Explicit

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim i As Long
If DruckOK = False Then Cancel = True
With Sheets("Tabelle1")
For i = 1 To .Range("A65536").End(xlUp).Row
If .Cells(i, 1) = 0 Then
.Rows(i).EntireRow.Hidden = True
Else
.Rows(i).EntireRow.Hidden = False
End If
Next i
DruckOK = True
Application.Dialogs(xlDialogPrint).Show
DruckOK = False
.Cells.EntireRow.Hidden = False
End With
End Sub

' Standardmodul
Public DruckOK As Boolean
Das Makro bezieht sich auf Spalte A der Tabelle1.
Alt + F11, links Doppelklick auf DieseArbeitsmappe, Code einfügen.
Public... in ein normales Standardmodul.
Gruss
Chris

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige