Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 08:01:34
Textbox Inhalt prüfen und Code abbrechen
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1028to1032
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
1028to1032
1028to1032
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ausgeblendete Zeilen werden ausgedruckt

Ausgeblendete Zeilen werden ausgedruckt
09.12.2008 12:39:59
Josef
Hallo Profis,
Wenn in bestimmten Zellen eine 0 steht soll der definierte Bereich (Zeilen) ausgeblendet werden.
Das funktioniert aber nur im ersten Bereich, bei weiteren werden in der Seitenansicht nur leere Seiten angezeigt und dann auch ausgedruckt, was nicht gewünscht ist.
Zum besseren verständnis habe ich eine Dummy Datei hochgeladen.
https://www.herber.de/bbs/user/57480.xls
Ich bin für jede Lösung dankbar.
Danke
Josef

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausgeblendete Zeilen werden ausgedruckt
09.12.2008 13:11:05
Rudi
Hallo,
wozu setzt du die PrintArea? Ausgeblendete Zeilen werden doch ohnehin nicht gedruckt.

Sub drucken()
Application.ScreenUpdating = False
With ActiveSheet
'001/001
.Rows("1:125").Hidden = .Range("A18") = "0"
'001/002
Rows("126:250").Hidden = .Range("A143") = "0"
'001/003 leer
.Rows("251:376").Hidden = .Range("A268") = "0"
'002/001
.Rows("377:501").Hidden = .Range("A394") = "0"
'002/002
.Rows("502:626").Hidden = .Range("A519") = "0"
'002/003
.Rows("627:751").Hidden = .Range("A644") = "0"
.PageSetup.PrintArea = "A:G"
.PrintPreview
'PrintOut
.PageSetup.PrintArea = ""
.Rows.Hidden = False
End With
Application.ScreenUpdating = True
End Sub


Gruß
Rudi

Anzeige
AW: Ausgeblendete Zeilen werden ausgedruckt
09.12.2008 13:33:00
Josef
Hallo Rudi,
danke für die Antwort. Habe deinen Code eingesetzt, leider funktioniert es nicht.
Range("A18") ="0"
Zeilen 1:125 werden als leere Seiten angezeigt
Range("A143") = "0"
Zeilen 126:250werden als leere Seiten angezeigt
dann folgen die Bereiche in denen in den Zellen A286, A399, A519, A699 Werte enthalten sind.
Steht in A399 eine 0, werden auch leere Seiten angezeigt
AW: Ausgeblendete Zeilen werden ausgedruckt
09.12.2008 13:42:00
Rudi
Hallo,

in den Zellen A286, A399, A519, A699


Die werden doch gar nicht abgefragt.
Du solltest auch mal auf 0 anstatt "0" testen.
Gruß
Rudi

Anzeige
AW: Ausgeblendete Zeilen werden ausgedruckt
09.12.2008 13:46:00
Josef
Hallo,
funktioniert auch nicht. Gleiches Ergebnis wie vorher.
Gruß
Josef

305 Forumthreads zu ähnlichen Themen

Automatisches füllen von Zeilen aus Spalten
Zeilen

Hallo,
ich habe eine Datei, sie besteht aus 2 Tabellenblättern. Im Tabellenblatt "Ursprung" stehen die Daten, wie man sieht in einer Zeile nebeneinander. Ich habe nun diese Zeile mittels "Transportieren" in eine Spalte untereinander kopiert (im Tabellenblatt "Problem").
Nun habe ich ein...
24.10.2008 15:37:41
Thread-ID: 1019049
6 Beiträge
Anzeige
ausgeblendete Zeilen auf Blattkopie auch ausblende
Thomas

Hallo,
ich habe folgendes Problem:
Mittels VBA und der Funktion PastSpecial kopiere ich ein Tabellenblatt, welches ausgeblendete Zeilen enthält.
Zum Einfügen des zu kopierenden Inhaltes verwende ich die o.a. Funktion zwei mal:
Zielblatt.Range(Quellenblatt.UsedRange.Address).Past...
20.11.2008 09:18:00
Thread-ID: 1026312
3 Beiträge
Combobox ausgeblendete Zeilen nicht anzeigen
helena

Schönen Guten Morgen
Kleines Problem ich verstecke Zeilen wenn in Spalte C Begriff nicht vorhanden dies klappt auch
aber via Combobox suche ich Namen (Adressvergabe) aber es werden mir immer alle aufgelistet auch wenn Zeilen ausgeblendet sind, ich Blende aus ob ich nur G_kunden oder P_...
28.12.2008 09:10:32
Thread-ID: 1035521
12 Beiträge
Anzeige
Zeilennr. in gefilterten und markierten Bereich
Kasimir

Hallo Leute,
ich stehe auf dem Schlauch und weiß ehrlich auch nicht so ganz, ob das was ich realisieren möchte überhaupt geht?
Also, ich filtere über den Autofilter Daten. Bei diesen gefilterten Daten möchte ich danach einen Bereich, also mehrere zusammenhängende Zellen in einer Spalte...
04.04.2009 08:21:59
Thread-ID: 1066813
7 Beiträge
Abhaengige ComboBox - automatische Zeilenausgabe
AnRo

Hallo zusammen,
ich bin absoluter vb anfaenger und moechte folgende Loesung mit vb realisieren.
Ein Dateiname soll automatisch generiert werden. Hierzu werden drei Comboboxen ausgewaehlt und danach soll der Dateiname entsprechend der Auswahl ausgegeben werden.
Hierzu habe ich bereit...
26.05.2009 15:32:32
Thread-ID: 1077443
4 Beiträge
kleinster, resp grösster nicht ausgeblendeter Wert
Peter

Guten Abend
Ich möchte aus einem Spaltenbererich den grössten, resp. den kleinsten Wert ermitteln. Dabei dürfen nur Werte aus nicht ausgeblendeten Zeilen berücksichtigt werden.
Wie kann ich das anstellen?
Danke für eine Antwort.
Gruss, Peter
16.06.2009 20:38:45
Thread-ID: 1082045
2 Beiträge
ausgeblendete Zeilen mit einbeziehen
SteffenS

Hallo Zusammen,
ich ermittle meinen Bereich mit:
WS.Range(WS.Cells(16, 5), WS.Cells(i - 1, 34)).Interior.ColorIndex = xlNone
Leider werden dabei ausgeblendete Zeilen ignoriert.
Was muss ich tun damit die Zeilen mit geändert werden?
Danke im Voraus.
Steffen Schmerler
01.04.2010 21:42:39
Thread-ID: 1149923
6 Beiträge
ausgeblendete Zeilen mit einbeziehen
SteffenS

Hallo Zusammen,
ich ermittle meinen Bereich mit:
WS.Range(WS.Cells(16, 5), WS.Cells(i - 1, 34)).Interior.ColorIndex = xlNone
Leider werden dabei ausgeblendete Zeilen ignoriert.
Was muss ich tun damit die Zeilen mit geändert werden?
Danke im Voraus.
Steffen Schmerler
01.04.2010 22:11:28
Thread-ID: 1149928
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
6
2
11
10
6
3
1
5
1
7
4
1
2
2
1
1
2
3
4
10
5
6
8
4