Der nachfolgende Code ist für Spalte A ausgelegt. Soll der Code für eine andere Spalte gelten, so einfach die Tabelle entsprechend der gewünschten Spalte sortieren und bei Codezeile - strSpalte = "A" - den gewünschten Spaltenbuchstaben eintragen.

 

 

Der Code für ein allgemeines Modul

 

Sub Seitenumbruch()

'Code für ein allgemeines Modul

'*************************

'Autor: Jürgen Hennekes

'*************************

Dim lngZ As Long

Dim strSpalte As String

 

'Gewünschte Spalte festlegen

strSpalte = "A"

 

'Alle Seitenumbrüche der aktiven Seite zurücksetzen

ActiveSheet.ResetAllPageBreaks

'Seitenumbruch je Gruppe in Spalte A setzen

For lngZ = 2 To Range(strSpalte & "65536").End(xlUp).Row 'ab Zeile 2

   If Range(strSpalte & lngZ) <> Range(strSpalte & lngZ + 1) Then

      ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Range(strSpalte & lngZ + 1)

   End If

Next

End Sub