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
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige