Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Druck

Forumthread: 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
Anzeige

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
Anzeige
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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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