Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Sub Start()
   Dim iRow As Integer, iRowL As Integer
   Application.ScreenUpdating = False
   ActiveSheet.DisplayAutomaticPageBreaks = False
   iRowL = Cells.Find("*", Range("A1"), , , xlByRows, xlPrevious).Row
   For iRow = iRowL To 1 Step -1
      If WorksheetFunction.CountA(Rows(iRow)) = 0 Then
         Rows(iRow).Hidden = True
      End If
   Next iRow
   ActiveSheet.PrintOut
   Rows.Hidden = False
   Application.ScreenUpdating = True
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Druck und Bereich