Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
404to408
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
404to408
404to408
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Druck

Druck
sascha
Hallo Liebe Freunde
Habe folgendes Problem
Ich soll in Tabelle3 bei drucken alle Zeilen wo Spalte A leer oder 0 ist ausblenden und nach druck wieder einblenden (Bereich A:P)
Das alles wird aus Tabelle 1 gemacht
Wer hilft?
Danke in voraus
Gruß Sascha

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Druck: Leerzellen und Nullzellen ausblenden
Boris
Hi Sascha,
ein mögliche Variante:
Option Explicit

Sub druck_spezial()
On Error Resume Next 'falls keine Leerzellen vorhanden sind
Dim Ws As Worksheet, C As Range, Bereich As Range
Set Ws = Worksheets("Tabelle3")
Set Bereich = [a65536]
With Ws
For Each C In .Range("A1:A" & .[a65536].End(xlUp).Row)
If C = 0 Then Set Bereich = Application.Union(Bereich, C)
Next C
Set Bereich = Application.Union(Bereich, .[a:a].SpecialCells(xlCellTypeBlanks))
Bereich.EntireRow.Hidden = True
.PrintOut
Bereich.EntireRow.Hidden = False
End With
End Sub

Den Code einfach via Button starten.
Grüße Boris
Anzeige
AW: Druck: Leerzellen und Nullzellen ausblenden
27.03.2004 00:52:27
sascha
Danke Boris
Gruß Sascha
AW: Druck: Leerzellen und Nullzellen ausblenden
Bert
Diese Lösung sieht gut aus, ist es aber nicht, da da ein Excelbug
was dagegen hat. Lass den Code 3mal laufen und speichere die Mappe.
Sieh dir dann mal an, wieviel Speicher sie beansprucht.
Bert
Und was ist das für ein Bug?
Boris
Hi Bert,
...und wie kann man das verhindern?
Grüße Boris
AW: Und was ist das für ein Bug?
Bert
Hast du probiert, was ich geschrieben habe?
Wenn nicht, machs mal und poste mal, was dabei rausgekommen ist.
Bert

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige