Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1636to1640
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
Inhaltsverzeichnis

Zusammengesetzter Druckbereich mit Variablen

Zusammengesetzter Druckbereich mit Variablen
29.07.2018 18:05:23
Matthias
Hallo,
Ich möchte die Bereiche
Range(Cells(2, 2), Cells(25, posobjektnr))
Range(Cells(27, 2), Cells(50, posobjektnr))
Range(Cells(52, 2), Cells(75, posobjektnr))
Range(Cells(52, 2), Cells(75, posobjektnr))
Range(Cells(102, 2), Cells(125, posobjektnr))
als Druckbereich definieren.
Ich habe schon duzende Schreibweisen ausprobiert, aber bei allen kam eine Fehlermeldung, oder die Syntax zeigte keine Wikrung. Zuletzt hatte ich das hor, wobei hier garnichts passiert ist:
ActiveSheet.PageSetup.PrintArea = Union(Range(Cells(2, 2), Cells(25, posobjektnr)), Range(Cells(27, 2), Cells(50, posobjektnr)), Range(Cells(52, 2), Cells(75, posobjektnr)), Range(Cells(52, 2), Cells(75, posobjektnr)), Range(Cells(102, 2), Cells(125, posobjektnr))).Address
Weiß von euch jemand, wie ich das richtig schreiben muss?
Vielen Dank schon mal :)

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zusammengesetzter Druckbereich mit Variablen
29.07.2018 18:09:32
Hajo_Zi
blende die Zeilen die nicht gedruckt werden soll aus und mache nur ein Druckbereich.

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
AW: Zusammengesetzter Druckbereich mit Variablen
29.07.2018 18:21:31
Rob
Pack die Druckbereiche doch in eine Objekt-Variable Range:

Sub Druckbereich()
Dim Range1, Range2, Range3, Range4, Range5 As Range
Set Range1 = Range(Cells(2, 2), Cells(25, posobjektnr))
Set Range2 = Range(Cells(27, 2), Cells(50, posobjektnr))
Set Range3 = Range(Cells(52, 2), Cells(75, posobjektnr))
Set Range4 = Range(Cells(52, 2), Cells(75, posobjektnr))
Set Range5 = Range(Cells(102, 2), Cells(125, posobjektnr))
ActiveSheet.PageSetup.PrintArea = Union(Range1, Range2, Range3, Range4, Range5).Address
End Sub

Anzeige
AW: Zusammengesetzter Druckbereich mit Variablen
29.07.2018 18:32:26
Rob
Aber eigentlich müsste Dein Code funktionieren. Habe ihn gerade selber ausprobiert. wie hast Du die Variable posobjektnr deklariert? Poste mal den ganzen Code.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige