Wie kann man verhindern, dass leere Zeilen in Excel gedruckt werden?

Wenn Ihr Excel-Arbeitsblatt leere Zeilen enthält, werden diese normalerweise zusammen mit den restlichen Daten gedruckt, was Papier und Platz verschwendet. Um dies zu vermeiden, können Sie einen VBA-Code verwenden, um leere Zeilen vor dem Drucken automatisch auszublenden. Dieser Leitfaden zeigt Ihnen, wie Sie diesen Code einrichten und verwenden, um nur Zeilen mit Daten zu drucken und so einen saubereren und effizienteren Ausdruck zu gewährleisten.

Leere Zeilen beim Drucken eines Arbeitsblatts mit VBA-Code ausschließen

Leere Zeilen beim Drucken eines Arbeitsblatts mit VBA-Code ausschließen

Mit dem folgenden VBA-Code können Sie das Arbeitsblatt ohne leere Zeilen drucken. Gehen Sie dazu wie folgt vor:

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Leere Zeilen beim Drucken stoppen:

Sub Print_NonBlank_Rows()
'Updateby Extendoffice
Dim xStr As String
    Dim xRg As Range
    Dim xHideRg As Range
    Dim xTxt As String
    Dim I As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For I = 1 To xRg.Rows.Count
        If Application.WorksheetFunction.CountA(xRg.Rows(I)) = 0 Then
            If xHideRg Is Nothing Then
                Set xHideRg = xRg.Rows(I)
            Else
                Set xHideRg = Union(xHideRg, xRg.Rows(I))
            End If
        End If
    Next
    xHideRg.EntireRow.Hidden = True
    ActiveSheet.PrintOut Copies:=1
    xHideRg.EntireRow.Hidden = False
    Application.ScreenUpdating = True
End Sub

3. Drücken Sie dann die F5-Taste, um diesen Code auszuführen. Ein Dialogfeld wird angezeigt, in dem Sie aufgefordert werden, den Datenbereich auszuwählen, den Sie drucken möchten. Siehe Screenshot:

4. Klicken Sie anschließend auf OK, und Ihr ausgewählter Bereich wird sofort ohne die leeren Zeilen gedruckt.