Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
25.04.2024 09:23:47
Spalten in Kreuztabelle hinzufügen/löschen je nach Vorgabe
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1880to1884
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
1880to1884
1880to1884
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Code druckt leere Seiten

Code druckt leere Seiten
28.04.2022 12:14:43
Andreas
Hi zusammen,
hab einen Code, mit dem ich gerne entweder 1 oder 2 Seiten drucken möchte.
Die Bedingung dafür steht in Zelle FY7. Wird dort mit der Formel eine 1 ermittelt, soll nur Seite 1 gedruckt werden, bei einer 2 Seite 1 und 2.
Das funktioniert auch - nur ist das Problem, dass immer jeweils eine Leerseite mit gedruckt wird.
In der Vorschau werden keine Leerseiten angezeigt. Wo kommen die den her? =(
Hier meine Datei: https://www.herber.de/bbs/user/152725.xlsm
Hat jemand eine Idee? Vermute das hängt mit den leeren und ausgeblendeten Zeilen zusammen?
Die müssen leider drinnen bleiben, brauche die später noch.
Danke vorab
Gruß Andreas

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code druckt leere Seiten
28.04.2022 12:34:40
Nepumuk
Hallo Andreas,
die erste Seite geht von Zeile 1 bis Zeile 50 du druckst von 1 bis 51. Die zweite Seite geht von Zeile 56 bis Zeile 89, du druckst von 52 bis 102. Daher die leeren Seiten.
Gruß
Nepumuk
AW: Code druckt leere Seiten
28.04.2022 12:41:13
Andreas
Hi Nepumuk,
Danke für deine Rückmeldung.
Das macht natürlich Sinn.
Hab das jetzt so angepasst:
max = Sheets("Planung").Range("D83").Value
If max If max > 15 Then max = 15
For i = 1 To max
vz = i * 50 - 49: bz = i * 50
Dann stimmt es zumindest für Seite 1.
Aber kannst du mir helfen, wie ich den Code anpassen kann, damit das mit Seite 2 auch funktioniert?
Dachte ich mach den Block einfach nochmal drunter:
max = Sheets("Planung").Range("D83").Value
If max If max > 15 Then max = 15
For i = 1 To max
vz = i * 50 - 49: bz = i * 50
max = Sheets("Planung").Range("D83").Value
If max If max > 15 Then max = 15
For i = 1 To max
vz = i * 89 - 56: bz = i * 89
Das mag er aber nicht. Er sagt dann Steuervariable wird bereits verwendet.
Gruß Andreas
Anzeige
AW: Code druckt leere Seiten
28.04.2022 12:43:57
Nepumuk
Hallo Andreas,
bleiben das 2 Seiten oder sind noch weitere geplant?
Gruß
Nepumuk
AW: Code druckt leere Seiten
28.04.2022 12:51:41
Andreas
Hi Nepumuk,
das Dokument bleibt genau so wie's ist.
Da kommen also keine Seiten- Zeilen oder Spalten mehr dazu.
Gruß Andreas
AW: Code druckt leere Seiten
28.04.2022 12:58:19
Nepumuk
Hallo Andreas,
dann so:

vz = i * 51 - 50: bz = i * 50 - 11 * (i - 1)
Gruß
Nepumuk
Erledigt :)
28.04.2022 13:06:42
Andreas
Viiiiiiiiiiiiiiielen Dank =D
Wünsche dir einen schönen Nachmittag.
Gruß Andreas
AW: Code druckt leere Seiten
28.04.2022 13:06:30
onur
Das liegt daran, dass die beiden Bereiche nicht wirklich identisch sind (versch. Zeilenhöhen, Zeilenanzahl usw), dass die Formeln im Code nix taugen und der Code nicht gut ist.
Wozu eine Schleife, wenn sowieso max 2 Seiten?
Nimm diesen Code:

Sub DruckSchneidePlan()
Dim rng1, rng2
Set rng1 = Range("A1:EU50")
Set rng2 = Range("A51:EU89")
sStdDrucker = Application.ActivePrinter
max = Range("FY7").Value
rng1.PrintPreview
If Range("FY7") = 2 Then rng2.PrintPreview
Application.ActivePrinter = sStdDrucker
End Sub

Anzeige
AW: Code druckt leere Seiten
28.04.2022 13:16:32
Andreas
Hi Onur,
das hat bei mir auch funktioniert, Danke für deinen Lösungsvorschlag.
Gruß und schönen Mittag
Andreas

51 Forumthreads zu ähnlichen 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
Anzeige
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
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
Seitenlayout leere Seiten werden gedruckt
Joachim

Hallo,
ich habe eine Datei bekommen, wo alle Tabellenblätter in der Ansicht Seitenlayout stehen. Bei fast allen Tabellenblätter ist nur die erste Seite ausgefüllt, die anderen sind grau mit dem Text 'Klicken Sie hier, um Daten hinzuzufügen'.
Manchmal gibt es aber eine zweite leere Seite...
28.02.2014 09:41:59
Thread-ID: 1351612
9 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
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
3
22
7
4
3
9
3
1
8
3
10
5
3
1
6
12
2
3
7
11
11
7
1
2
1