Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Vor dem Druck Zeilen einfügen und danach wieder löschen

Gruppe

Bereich

Problem

Vor dem Druck nach soll nach jedem Datensatz eine Zeile eingefügt und danach wieder gelöscht werden.

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.

StandardModule: Modul1

Sub LeerZeilen()
   Dim iRowL As Integer, iRow As Integer
   Application.ScreenUpdating = False
   iRowL = Cells(Rows.Count, 1).End(xlUp).Row
   For iRow = iRowL To 1 Step -1
      Rows(iRow).Insert
   Next iRow
   ActiveSheet.PrintPreview
   iRowL = Cells(Rows.Count, 1).End(xlUp).Row - 1
   For iRow = iRowL To 1 Step -2
      Rows(iRow).Delete
   Next iRow
   Application.ScreenUpdating = True
End Sub

Sub ZeilenHoehe()
   With Range("A1").CurrentRegion.Rows
      .RowHeight = .RowHeight * 2
      ActiveSheet.PrintPreview
      .RowHeight = .RowHeight / 2
   End With
End Sub

    

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