Druckbereich bis zur aktiven Zelle

Forumthread: Druckbereich bis zur aktiven Zelle
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Druckbereich bis zur aktiven Zelle

24.02.2026 14:03:52

Skriptyger

Hallo Profis,
ich möchte den Druckbereich festlegen von A5 bis zur aktiven Zelle. Leider kann ich nicht die letzte verwendete Zelle auswählen, da das Gerüst der Tabelle schon steht (Arbeitstage, -zeiten pro Monat), sich aber erst nach und nach füllt.
Ich habe schon alles mögliche ausprobiert, aber es funktioniert einfach nicht. Im Moment habe ich aus vielen Beispielen heraus:

Sub Druckbereich()
' Druckbereich Festlegen: Erste Datenzeile bis Aktive Zelle
i = Cells(ActiveCell.Row)
ActiveSheet.PageSetup.PrintArea = Range("A5:H" & i)
End Sub

Win11, Excel2003 🫣
Kann jemand helfen?

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Druckbereich bis zur aktiven Zelle

24.02.2026 14:22:25

daniel
AW: Druckbereich bis zur aktiven Zelle

24.02.2026 14:31:50

Skriptyger
AW: Druckbereich bis zur aktiven Zelle

24.02.2026 14:25:15

JoWE
AW: Druckbereich bis zur aktiven Zelle

24.02.2026 14:33:26

Skriptyger

AW: Druckbereich bis zur aktiven Zelle

24.02.2026 14:22:25

daniel

Hi
der Druckbereich ist ein Text mit der Adresse des Zellbereichs

ActiveSheet.PageSetup.PrintArea = "A5:H" & ActiveCell.Row

Gruß Daniel

AW: Druckbereich bis zur aktiven Zelle

24.02.2026 14:31:50

Skriptyger

Das funktioniert! Vielen Dank!

AW: Druckbereich bis zur aktiven Zelle

24.02.2026 14:25:15

JoWE

Hallo Namenloser,

so:

Option Explicit

Sub Druckbereich()

  ' Druckbereich Festlegen: Erste Datenzeile bis Aktive ZelleDim myRng As String

  Dim myRng As String

  myRng = "$A$5:" & ActiveCell.Address

  ActiveSheet.PageSetup.PrintArea = myRng

End Sub

Gruß
(so geht das hier!!!)
Jochen

AW: Druckbereich bis zur aktiven Zelle

24.02.2026 14:33:26

Skriptyger

Wow, vielen Dank!
Das ist noch besser, weil auch die aktuelle Spalte gewählt wird. Sehr komfortabel!

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