Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Durckbereich anhand letzter Zeile

Forumthread: Durckbereich anhand letzter Zeile

Durckbereich anhand letzter Zeile
20.04.2016 08:53:48
Jens
Hallo,
wie kann ich den Druckbereich per VBA so anpassen, dass der Durckbereich immer bis einschließlich zur letzten beschriebenen Zelle in Spalte A gezogen wird?
Gruß

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: dazu bedarf es aber kein VBA ...
20.04.2016 08:57:09
...
Hallo Jens,
... so etwas kann man auch Formelbasierend definieren. Oder soll es unbedingt VBA sein, dann stell den thread wieder offen.
Gruß Werner
.. , - ...

AW: dazu bedarf es aber kein VBA ...
20.04.2016 08:58:19
Jens
Formelbasierend? wie soll das gehen?

AW: Druckbereichsdefinition geht mit Formel ...
20.04.2016 09:11:25
...
Jens,
... nun, angenommen Deine letzte zu druckende Spalte in Tabelle1 sei Q dann definiere den Bereichsnamen den Excel für den Druckbereich Deiner Tabelle so:
Druckbereich=Tabelle1!$A$1:INDEX(Tabelle1!$Q:$Q;VERWEIS(9;1/(Tabelle1!$A$1:$A$999"");ZEILE(Tabelle1!A:A)))
Gruß Werner
.. , - ...

Anzeige
...weil Druckbereich auch nur ein definierter ...
20.04.2016 13:25:41
Luc:-?
…Name ist, Jens,
und einem solchen kann man auch eine Fml zuordnen. Das erkennt man schon daran, dass der Bezug eines Namens stets mit einem = beginnt!
Gruß, Luc :-?
Besser informiert mit …

Anzeige
AW: Durckbereich anhand letzter Zeile
20.04.2016 09:30:06
Werner
Hallo Jens,
oder per VBA
Dim Zeile As Long
Zeile = Sheets("DeinTabellenblatt").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("DeinTabellenblatt").PageSetup.PrintArea = ""
Sheets("DeinTabellenblatt").PageSetup.PrintArea = "$A$8:$R$" & Zeile 'Spalten anpassen
Gruß Werner

Anzeige
AW: Durckbereich anhand letzter Zeile
20.04.2016 10:46:49
Jens
super funktioniert

AW: Danke für die Rückmeldung owT
20.04.2016 11:55:52
Werner
;
Anzeige
Anzeige

Infobox / Tutorial

Druckbereich dynamisch anpassen in Excel


Schritt-für-Schritt-Anleitung

Um den Druckbereich in Excel dynamisch bis zur letzten beschriebenen Zelle in Spalte A zu definieren, kannst Du entweder VBA verwenden oder eine Formel. Hier sind die Schritte für beide Methoden:

VBA-Methode:

  1. Öffne den VBA-Editor (ALT + F11).
  2. Füge ein neues Modul hinzu.
  3. Verwende den folgenden Code:
Dim Zeile As Long
Zeile = Sheets("DeinTabellenblatt").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("DeinTabellenblatt").PageSetup.PrintArea = ""
Sheets("DeinTabellenblatt").PageSetup.PrintArea = "$A$1:$R$" & Zeile 'Spalten anpassen
  1. Passe den Namen des Tabellenblatts an.
  2. Führe das Makro aus.

Formel-Methode:

  1. Gehe zu "Formeln" und wähle "Namensmanager".
  2. Erstelle einen neuen Namen, z.B. "Druckbereich".
  3. Verwende die folgende Formel:
=Tabelle1!$A$1:INDEX(Tabelle1!$Q:$Q;VERWEIS(9;1/(Tabelle1!$A$1:$A$999<>"");ZEILE(Tabelle1!A:A)))
  1. Speichere und schließe den Namensmanager.

Häufige Fehler und Lösungen

Fehler 1: Druckbereich wird nicht aktualisiert

  • Stelle sicher, dass Du den VBA-Code oder die Formel korrekt implementiert hast. Überprüfe den Tabellennamen und die Zellreferenzen.

Fehler 2: Formel gibt einen Fehler aus

  • Vergewissere Dich, dass die Formel korrekt eingegeben wurde. Achte auf die richtigen Zellreferenzen und die Syntax.

Alternative Methoden

Wenn Du keine VBA-Programmierung oder komplexe Formeln verwenden möchtest, kannst Du auch den Druckbereich manuell festlegen. Gehe dafür zu:

  1. "Seitenlayout" -> "Druckbereich" -> "Druckbereich festlegen".
  2. Wähle die Zellen aus, die Du drucken möchtest.

Das ist zwar nicht dynamisch, aber einfach und schnell.


Praktische Beispiele

Beispiel 1: VBA für einen bestimmten Bereich Wenn Du nur bis zur letzten Zeile in Spalte A drucken möchtest, passe den VBA-Code an:

Dim Zeile As Long
Zeile = Sheets("DeinTabellenblatt").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("DeinTabellenblatt").PageSetup.PrintArea = "$A$1:$A$" & Zeile

Beispiel 2: Formel für mehrere Spalten Wenn Deine Daten bis zur Spalte Q gehen, verwende die Formel wie oben beschrieben, um den Druckbereich für alle Spalten bis Q zu definieren.


Tipps für Profis

  • Nutze den qverweis in Excel, um Daten in Deinem Druckbereich dynamisch zu referenzieren, falls Du zusätzliche Informationen benötigst.
  • Speichere Deine Excel-Datei regelmäßig, insbesondere nach Änderungen im VBA-Editor.
  • Teste den Druckbereich mit der Vorschau, bevor Du tatsächlich druckst.

FAQ: Häufige Fragen

1. Kann ich den Druckbereich automatisch aktualisieren lassen? Ja, wenn Du den VBA-Code in einem Workbook-Open-Ereignis einfügst, wird der Druckbereich bei jedem Öffnen der Datei aktualisiert.

2. Wie kann ich den Druckbereich zurücksetzen? Du kannst den Druckbereich zurücksetzen, indem Du in Excel auf "Seitenlayout" -> "Druckbereich" -> "Druckbereich löschen" gehst.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige