Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
276to280
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
276to280
276to280
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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.

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige