Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
916to920
916to920
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Leere Seite nicht drucken?

Forumthread: Leere Seite nicht drucken?

Leere Seite nicht drucken?
25.10.2007 14:11:00
Selma
Hallo Leute,
ich habe eine Frage:
Was muss ich in unterem Code verändern, damit nur die Seiten gedruckt werden, die ein Inhalt in Zelle A1 haben? 

Sub Drucken_3()
Range("A1").ClearContents
Application.Dialogs(xlDialogPrint).Show
For n = 1 To Cells(Rows.Count, 2).End(xlUp).Row
If UCase(Cells(n, 3).Value) = "X" Then
Cells(1, 1).Value = Cells(n, 2).Value
Range("A1:A45").PrintOut
End If
Next n
End Sub


Vielen Dank im Voraus.
Liebe Grüße
Selma

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Leere Seite nicht drucken?
25.10.2007 14:46:00
Jan
Hallo Selma,
prüf' doch die Zelle A1 auf Inhalt ab und nur wenn dort etwas steht (sie nicht leer ist) wird der Druckbefehl ausgeführt:

Sub Drucken_3()
Range("A1").ClearContents
Application.Dialogs(xlDialogPrint).Show
For n = 1 To Cells(Rows.Count, 2).End(xlUp).Row
If UCase(Cells(n, 3).Value) = "X" Then
Cells(1, 1).Value = Cells(n, 2).Value
If Range("A1").Value"" then
Range("A1:A45").PrintOut
End if
End If
Next n
End Sub


Viele Grüße aus Hamburg,
Jan

Anzeige
AW: Leere Seite nicht drucken?
25.10.2007 16:16:20
Selma
Hallo Jan,
erstmal Danke für die Hilfe. Leider werden die leeren Seiten auch mitgedruckt.
Anbei eine Beispieldatei: https://www.herber.de/bbs/user/47106.xls
LG
Selma

Forumthreads zu verwandten Themen

Spalte nicht ausdrucken
Edwin

Hallo,
ich möchte in einem Sheet, dass eine bestimmte Spalte nicht ausgedruckt wird.
Ich weiß, dass ich Spalten ausblenden kann und dass diese dann nicht ausgedruckt werden.
Kann ich aber auch der Spalte die Eigenschaft zuweisen, dass sie nicht ausgedruckt wird?
Gruß
Edwin
05.11.2008 10:42:43
Thread-ID: 1021789
4 Beiträge
Spalte keine Ansicht und nicht drucken
Frederic

Hallo Zusammen
Hätte eine blöde Frage:
Wie kann ich mit VBA erreichen, dass die Spalte C1:C60 nicht in der Seitenansicht und auch nicht gedruckt wird. Grund: Habe dort Listenvermerke drin.
Für Eure generöse Hilfe danke ich schon im Voraus
Salvus
Frederic
20.12.2008 19:23:00
Thread-ID: 1034447
23 Beiträge
Zeilen nicht drucken, wenn Spalte leer oder 0
Berlenbach

Hallo,
ich habe ein Problem mit dem unten angegebenen und hier veröffentlichten Makro:
Sub Drucken() Dim iRowL As Integer, iRow As Integer iRowL = Cells(Rows.Count, 3).End(xlUp).Row For iRow = 1 To iRowL If IsEmpty(Cells(iRow, 3)) Or Cells(iRow, 3).Value = 0 Then Rows(iRow).Hidden = T...
01.04.2009 09:37:06
Thread-ID: 1065835
8 Beiträge
leere blätter nicht drucken
Michael

hallo
bei folgender prozedur werden nur die zeilen einer mehrseitigen tabelle gedruckt, bei denen kein "WAHR" in Spalte I steht. Problem ist nur, dass zwar die zeilen nicht gedruckt werden aber die eventuell vorhandenen Seiten dazwischen, wenn sich dort nicht zu druckende zeilen befinden. I...
04.01.2010 12:43:59
Thread-ID: 1127017
5 Beiträge
Leere Felder nicht mitdrucken
Ringlstetter

Hallo ihr,
ich habe mehrere Arbeitsblätter in einer Arbeitsmappe und möchte am Monatsabschluss alle drucken. Die letzte Zeile ist 73 und genau diese wird auch dringend benötigt, da dies die Summenspalte ist. Allerdings stehen zwischen 1 und 73 auch leere Zeilen - welche das sind, variiert j...
16.11.2010 11:55:59
Thread-ID: 1187072
4 Beiträge
Anzeige
Leere Zeilen nicht drucken. Makro optimieren
chandler

Hallo,
das Makro durchsucht Bereiche und blendet Zeilen aus, wenn in Spalte C die Zellen leer sind um dann das Blatt zu drucken.
Sub print_n() Dim iCol As Integer Dim i As Integer Dim iRow As Integer Dim iRowL As Integer Dim i2 As Integer Dim iRow2 As Integer Dim iRowL2 As Integer iCol...
04.01.2012 14:21:35
Thread-ID: 1244557
10 Beiträge
Excel Diagramm zeigt leere Spalte als 0 an
Maximilian

Hallo,
ich habe ein kleines Problem
Ich habe ein Excel-Diagramm, zu dem jeden Tag ein neuer Wert hinzugefügt wird:

Problem ist, dass der Wert in der Markierten Zelle als 0 angesehen wird, nicht als leer. Daher erscheint dann in dem Diagramm auch ein Strich auf die x-Achse.
...
05.11.2012 14:56:21
Thread-ID: 1285357
4 Beiträge
Seiten nur drucken, wenn Zelle nicht 0
Albert

Hallo liebe Leute,
ich habe eine kleine Vereinsbuchhaltung, die ich mit einer Exceltabelle verwalte.
Jedes Konto ist gleich ein Tabellenblatt. Auf jeder Seite steht für das entsprechende
Konto eine Endsumme. Auf einigen Konten wird nicht jedes Jahr eine Summe gebucht,
so das dor...
19.11.2012 22:48:47
Thread-ID: 1287340
2 Beiträge
Leere Zeilen nicht in Grafik anzeigen!
Maria

Hallo.
Ich bin ein Excel-Anfänger und benötige für eine Tabelle für die Arbeit Hilfe.
In eine Zelle soll eine Division zwei anderer Zellen durchgeführt werden. Dazu haben die Kollegen noch die WENN-Formel benutzt.. also wenn in einer der beiden Zellen ein Wert, dann Division.
=WENN(...
30.11.2014 16:53:23
Thread-ID: 1395360
4 Beiträge
leere zeilen nicht einfügen!!?
carsten

hallo,ich hab da ein kleines problem. ich wollte von einer tabelle werte in die nächste übertragen lassen in einem bestimmten bereich.
also tab3 der bereich a2:d50 wird mit werten gefüllt und die sollen in tab4 ab zelle a30 eingefügt werden zwischen einen bestehenden text, sprich die zeilen...
02.09.2002 10:10:53
Thread-ID: 155209
6 Beiträge
Leere Zeilen durch nicht angesprochne Textmarken
Naki

Hallo,
ich habe in einem Word_Doc mehrere Textmarken.
Beispiel zum Aufbau:
TEXTMARKEN in .dotm. Nach dem füllen:
TM1TM2 Leerzeile
TM3 BEISPIEL TEXT
TM4...
10.06.2017 00:09:21
Thread-ID: 1563316
4 Beiträge
leere Seiten nicht drucken
andreas

Hallo...,mit nachfolgendem Makro drucke ich mir die gefilterten Tabellenblätter aus.------------------------------------------------------
Sub FilternNachKW()
Dim varStartKW, varEndeKW, varFilter As VariantvarStartKW = InputBox("Start KW") 'z.B. 36
varEndeKW = InputBox("Ende KW")...
23.09.2002 16:12:59
Thread-ID: 162812
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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