Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
916to920
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
916to920
916to920
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

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
Anzeige

51 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige