Zusammengesetze Bereiche Drucken

Forumthread: Zusammengesetze Bereiche Drucken
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Zusammengesetze Bereiche Drucken

10.11.2024 18:23:10

Stephan

Hallo Zusammen,
gerne möchte ich Bereiche aus einem Dienstplan drucken.
dabei soll immer der Bereich A4:A12 Links gedruckt werden (Mitarbeiternamen) und jeweils der Bereich einer Woche (zb. H4:M12) oder A4:A12 und N4:T12

Sub Druckbereich1()

Dim ranRange1, ranRange2 As Range



Set ranRange1 = Range(Cells(3, 0), Cells(11, 0))

Set ranRange2 = Range(Cells(3, 8), Cells(11, 14))



ActiveSheet.PageSetup.PrintArea = Union(ranRange1, ranRange2)

End Sub

Wie mach i das richtig??
Gruss und danke für die Hilfe

Stephan

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zusammengesetze Bereiche Drucken

10.11.2024 18:52:08

RPP63
AW: Zusammengesetze Bereiche Drucken

10.11.2024 19:09:16

Onur
AW: Zusammengesetze Bereiche Drucken

10.11.2024 18:58:51

RPP63

AW: Zusammengesetze Bereiche Drucken

10.11.2024 18:52:08

RPP63

Moin!
Da gibt es extrem viele Möglichkeiten.

H bis M sind 6 Tage
N bis T sind 7 Tage
*confused*

Mit Union() dürftest Du nicht zum Ziel gelangen, eher mit dem Ausblenden unerwünschter Spalten.

Es könnte sinnvoll sein, die Datei hochzuladen.

Dass Cells(3, 0) suboptimal ist, sollte auch mit "VBA bescheiden" klar sein.
Oder kennst Du Spalte 0?

Gruß Ralf

AW: Zusammengesetze Bereiche Drucken

10.11.2024 19:09:16

Onur

1) Spalte 0 (Cells(11, 0)) gibt es nicht bei Excel
2) So wird das nix. PrintArea begrenzt/erweitert nur den Druckbereich. Normalerweise (ohne PrintArea) wird nur der benutzte Bereich des Worksheets gedruckt.
Durch PrintArea kannst du, wenn z.B. A1-C100 benutzt wurde, den Druckbereich stattdessen auf A1:B50 begrenzen oder aber auf A1-Z100 erweitern.
SO

Sub Druckbereich1()

    Dim rng1, rng2

    Set rng1 = Range(Cells(3, 1), Cells(11, 1))

    Set rng2 = Range(Cells(3, 8), Cells(11, 14))

    Union(rng1, rng2).PrintOut

End Sub

kannst du nur bestimmte Bereiche drucken, aber NICHT sie "zusammenkleben", so dass sie nebeneinander liegen.
DAS kannst du z.B. auf einem anderen Blatt mit Formeln erreichen und dieses Blatt drucken.

AW: Zusammengesetze Bereiche Drucken

10.11.2024 18:58:51

RPP63

Zu früh abgesendet, daher ergänzend:
Dass die PageSetup.PrintArea-Eigenschaft einen String (der Range-Adresse) und kein Range-Objekt erwartet, habe ich oben vergessen.

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