Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Seitenumbruch nach Zeilen mit bestimmtem Inhalt einfügen

Gruppe

Umbruch

Problem

An den Zeilen mit dem Wert XYZ in Spalte A soll ein Seitenwechsel eingefügt werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: Modul1

Sub Seitenwechsel()
   Dim iRow As Integer
   For iRow = WorksheetFunction.CountA(Columns(1)) To 1 Step -1
      If Cells(iRow, 1).Value = "XYZ" Then
         Tabelle1.HPageBreaks.Add Cells(iRow, 1)
      End If
   Next iRow
End Sub

    

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