VBA Seitenumbruch nach jeder leeren Zeile

[Kuwer]

Hallo Katy,

Code:

Sub ZeilenumbruecheSetzen()
  Dim rngZ As Range
  With ActiveSheet
    .ResetAllPageBreaks
    For Each rngZ In .Range(.Cells(2, 1), .Cells.SpecialCells(xlCellTypeLastCell)).Rows
      If WorksheetFunction.CountA(rngZ) = 0 Then
        .HPageBreaks.Add rngZ
      End If
    Next rngZ
  End With
End Sub

Gruß, Uwe