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ß
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
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:
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
Formel-Methode:
=Tabelle1!$A$1:INDEX(Tabelle1!$Q:$Q;VERWEIS(9;1/(Tabelle1!$A$1:$A$999<>"");ZEILE(Tabelle1!A:A)))
Fehler 1: Druckbereich wird nicht aktualisiert
Fehler 2: Formel gibt einen Fehler aus
Wenn Du keine VBA-Programmierung oder komplexe Formeln verwenden möchtest, kannst Du auch den Druckbereich manuell festlegen. Gehe dafür zu:
Das ist zwar nicht dynamisch, aber einfach und schnell.
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.
qverweis in Excel, um Daten in Deinem Druckbereich dynamisch zu referenzieren, falls Du zusätzliche Informationen benötigst.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.