Wie druckt man ein Arbeitsblatt in Excel, ohne leere Zeilen zu berücksichtigen?
Beim Drucken eines Arbeitsblatts werden auch leere Zeilen mitgedruckt. Viele Excel-Nutzer möchten ihr Arbeitsblatt jedoch ohne diese leeren Zeilen drucken, um die Daten übersichtlicher darzustellen und Papier zu sparen. Doch wie druckt man ein Arbeitsblatt in Excel ohne leere Zeilen? Dieser Artikel stellt Ihnen zwei Methoden vor.
Leere Zeilen vor dem Drucken mit VBA-Code ausblenden
Leere Zeilen löschen vor dem Drucken mit Kutools für Excel
Leere Zeilen vor dem Drucken mit VBA-Code ausblenden
Vor dem Drucken des Arbeitsblatts können Sie den folgenden VBA-Code ausführen, um leere Zeilen in einem begrenzten Bereich auszublenden. Gehen Sie dazu wie folgt vor:
1. Drücken Sie die Tasten Alt+F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul. Kopieren Sie anschließend den unten stehenden VBA-Code und fügen Sie ihn in das Modulfenster ein.
VBA-Code: Leere Zeilen Ausgewählter Bereich ausblenden
Sub HideBlankRows()
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
Dim xUpdate As Boolean
Dim I As Long
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select a range", "Kutools for Excel", xAddress, , , , , 8)
Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "Don't support multiple ranges", , "Kutools for Excel"
Exit Sub
End If
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For I = 1 To xRg.Rows.Count
xRg.Rows(I).EntireRow.Hidden = (Application.CountA(xRg.Rows(I)) = 0)
Next
Application.ScreenUpdating = xUpdate
End Sub3. Drücken Sie die Taste F5, um den Code auszuführen. Anschließend wird das Dialogfeld Kutools für Excel angezeigt. Wählen Sie den Bereich mit den leeren Zeilen, die Sie nicht drucken möchten, und klicken Sie auf die Schaltfläche OK.
Anschließend werden alle leeren Zeilen im ausgewählten Bereich sofort ausgeblendet. So können Sie das Arbeitsblatt ohne leere Zeilen drucken.
Hinweis: Nach dem Drucken können Sie die ausgeblendeten leeren Zeilen mit dem folgenden VBA-Code wieder einblenden.
VBA-Code: Alle Leere Zeilen Ausgewählter Bereich einblenden
Sub UnhideRows()
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
Dim xUpdate As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select a range to unhide the blank rows", "Kutools for Excel", xAddress, , , , , 8)
Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
If xRg Is Nothing Then Exit Sub
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
xRg.EntireRow.Hidden = False
Application.ScreenUpdating = xUpdate
End SubLeere Zeilen löschen vor dem Drucken mit Kutools für Excel
Wenn Sie ein Arbeitsblatt ohne leere Zeilen drucken möchten, empfehlen wir Ihnen, alle leeren Zeilen mithilfe der Funktion Leere Zeilen löschen von Kutools für Excel zu entfernen und das Arbeitsblatt anschließend manuell zu drucken.
1. Klicken Sie auf Kutools > Löschen > Leere Zeilen löschen und wählen Sie dann je nach Ihren Anforderungen Ausgewählter Bereich, Aktives Arbeitsblatt, Ausgewählte Arbeitsblätter oder In allen Blättern. Siehe Screenshot:
Hinweis: Um leere Zeilen in einem Bereich zu löschen, markieren Sie zunächst den gewünschten Bereich und wenden Sie anschließend die Funktion an.
2. Anschließend erscheint ein Dialogfeld, das Ihnen anzeigt, wie viele Zeilen gelöscht wurden. Klicken Sie auf die Schaltfläche OK.
Alle leeren Zeilen wurden nun gelöscht – Ihr Arbeitsblatt ist bereit zum Drucken!
Hinweis: Diese Funktion unterstützt das Rückgängigmachen mit Strg + Z.
Wenn Sie eine kostenlose 30-Tage-Testversion dieses Dienstprogramms nutzen möchten, klicken Sie bitte hier, um sie herunterzuladen, und führen Sie anschließend die Aktion gemäß den oben beschriebenen Schritten aus.
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