Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zeilenumbrüchen über VBA setzen

Gruppe

Umbruch

Problem

Manuelle Zeilenumbrüchen werden gesetzt, bereits vorhandene entfernt.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.

StandardModule: Modul1

Sub SetPageBreaks()
   Dim iRow As Integer, iCounter As Integer
   iRow = 56
   With ActiveSheet
      .DisplayAutomaticPageBreaks = True
      For iCounter = .HPageBreaks.Count To 1 Step -1
         If .HPageBreaks(iCounter).Type = xlPageBreakManual Then
            .HPageBreaks(iCounter).Delete
         End If
      Next iCounter
      Do While iRow < Range("A1").CurrentRegion.Rows.Count
         .HPageBreaks.Add Rows(iRow)
         iRow = iRow + 50
      Loop
      .PrintPreview
   End With
End Sub

    

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