Wie legt man in Excel den Druckbereich so fest, dass er alle Spalten bis zur letzten Zeile umfasst?
In Excel ist standardmäßig der Druckbereich so eingestellt, dass das gesamte Arbeitsblatt bis zur letzten Zeile mit Daten gedruckt wird. Wenn Sie jedoch nur die Spalten A bis C bis zur letzten Zeile mit Daten drucken möchten – und alle Daten in den Spalten rechts von C ausschließen wollen, wie in der folgenden Abbildung gezeigt –, gibt es dafür Möglichkeiten?
Legen Sie den Druckbereich auf die Letzte Zeile mit Daten mithilfe von Auswahl drucken fest
Legen Sie den Druckbereich auf die Letzte Zeile mit Daten mithilfe von VBA fest
| Ein Arbeitsblatt mit Daten, die sich bis Spalte I erstrecken | Druckvorschau, die nur Daten bis Spalte C anzeigt |
 |  |
Legen Sie den Druckbereich auf die Letzte Zeile mit Daten mithilfe von Auswahl drucken fest
Um einen markierten Bereich bis zur letzten Zeile mit Daten zu drucken, ändern Sie vor dem Drucken einfach den Druckbereich auf Ihre gewünschte Auswahl.
1. Halten Sie die Strg-Taste gedrückt und wählen Sie anschließend die Spalten aus, die Sie drucken möchten. Siehe Abbildung:
2. Klicken Sie auf Datei > Drucken und wählen Sie dann im Abschnitt Einstellungen die Option Auswahl drucken aus. Siehe Abbildung:
Legen Sie den Druckbereich auf die Letzte Zeile mit Daten fest
Hier stelle ich ebenfalls einen Makrocode vor, mit dem Sie diesen Vorgang automatisieren können.
1. Aktivieren Sie das gewünschte Arbeitsblatt und drücken Sie die Tastenkombination Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen. Klicken Sie anschließend auf Einfügen > Modul. Siehe Abbildung.
2. Fügen Sie den folgenden Code in das Modul-Skript ein und drücken Sie die F5-Taste, um ihn auszuführen.
VBA: Bereich auf Letzte Zeile festlegen
'UpdatebyExtendoffice20170811
Dim xRg As Range
Dim xRgLRow As Long
Dim xRgAddress As String
On Error Resume Next
xRgAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range：", "KuTools For Excel", xRgAddress, , , , , 8)
xRg.Select
xRgLRow = xRg.SpecialCells(xlCellTypeLastCell).Row
xRgAddress = Left(xRg.Address(1, 1), Len(xRg.Address(1, 1)) - 2)
xRgAddress = xRgAddress & xRgLRow
ActiveSheet.PageSetup.PrintArea = xRgAddress
End Sub
3. Ein Dialogfeld erscheint und fordert Sie auf, den gewünschten Spaltenbereich auszuwählen – siehe Abbildung:
4. Klicken Sie auf OK, und der Druckbereich ist festgelegt.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins