HERBERS Excel-Forum - die Beispiele

Thema: Zeilen mit leeren Formeln beim Druck unterdrücken

Home

Gruppe

Druck

Problem

Wenn ich ein Blatt ausdrucke, werden Zeilen mit Zellen, in denen sich Formeln mit Leerstrings befinden mit ausgedruckt. Wie kann ich das verhindern?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain

Sub OhneAusblenden()
    ActiveSheet.PrintPreview
End Sub

Sub FuerDruckAusblenden()
   Dim rng As Range
   Dim iRow As Integer, iCol As Integer
   Dim bln As Boolean
   Set rng = Range("A1").CurrentRegion
   For iRow = 1 To rng.Rows.Count
      bln = False
      For iCol = 1 To rng.Columns.Count
         If Cells(iRow, iCol).Value <> "" Then
            bln = True
            Exit For
         End If
      Next iCol
      If bln = False Then
         rng.Rows(iRow).Hidden = True
      End If
   Next iRow
   ActiveSheet.PrintPreview
   Rows.Hidden = False
End Sub

Beiträge aus dem Excel-Forum zu den Themen Druck und Bereich

PDF Drucken VBA Dynamischer Datenbereich im Diagramm
Generierung von Tabs per VBA + Sammeldruck Bereich als Bild speichern.
Akt. Datum und Uhrzeit am gedruckten Dokument 1. freie Zelle in nicht zusammenhängenden Bereich
Bestimmtheitsmass nach vorgegebenen Bereich UserForm im Querformat drucken
Bestimmten Bereich anhand Zeilenabgabe kopieren Bereich löschen
Array - Index außerhalb des gültigen Bereichs zoom auf Druckbereichsbreite anpassen
Bilder in Registerblatt drucken Bereich syncronisieren II
PDF eventuell Ausdruck sperren? Zeilenbereich auf Tabelle übertragen
Druchbereiche auf eine Seite Druckprobleme....
Definitionsbereich Bereich von rechts nach links auslesen?
Tabellenblätter Ausdruck gruppieren Drucken mit VBA
Namen definieren für bestimmten Bereich Nur einen Eintrag im Bereich zulassen
Kommentar in erste zelle einess Bereiches Bestimmte Zeilen/ Spalten nicht mitdrucken
bedingte Formatierung für zellenbereich Diagramme DIN A3 drucken
Summewenn mit abhängigen Bereichen Bereiche in separates sheet
Summewenn mit abhängigen Bereichen Automatischen Andruck auf Standartdrucker erzeugen
Absturz bei lokalen Bereichsnamen Druckerauswahl
Blätter autom. ein-/ausblenden + drucken Kann bestimmten Drucker nicht auswählen
Drucker nicht vorhanden, dann Meldung Arbeitsmappendruck
Teilbereich einer Zelle einfärben Abfrage ob Druckbereich zu groß für Seitenbreite
Druck PDF-Datei Fehler 1004 beim Druck einer PDF - mit Screenshot
Gruppierten Bereich sperren Bestimmte Zahlen aus einem Bereich
Bereich nur unter best. Voraussetzg. summieren Druckeinstellungen für mehrere Drucke übernehmen
Name eine benannten Bereiches finden Grafik drucken
Mit Change() o. Calculate() Filtern und Drucken Druckparameter an neue Datei