Dieses Makro zur Einfügung von Seitenumbrüchen habe ich im Archiv gefunden. Kann mir jemand die Angaben mache, damit es anstelle von Buchstaben auch mit Zahlen funktioniert?
Ich möchte, dass sobald die Zahl in Spalte N wechselt ein Seitenumbruch eingefügt wird.
Das währe toll.
Besten Dank
Andreas
Sub Seitenumbruch()
Dim startbuchstabe As String
Dim c As Object
startbuchstabe = "A"
For Each c In Selection
If Mid(c.Value, 14, 5) startbuchstabe And c.Row > 1 Then
ActiveSheet.HPageBreaks.Add before:=Cells(c.Row, 1)
startbuchstabe = Mid(c.Value, 14, 5)
End If
Next
End Sub