ich habe folgenden Sub bekommen, welcher wenn sich der 2. Buchstabe in der 2. Spalte ändert einen Seitenwechsel einfügt.
Dieser hat in Office 97 funktioniert, in Office XP läuft er nicht mehr:
Fehler: anwendungs- oder objektorientierter Fehler bei Zeile:
ActiveSheet ....
Kann mir jemand helfen?
Sub Seitenumbruch()
Dim startbuchstabe As String
Dim c As Range
startbuchstabe = "A"
For Each c In Selection
If Mid(c.Value, 2, 1) <> startbuchstabe Then
ActiveSheet.HPageBreaks.Add before:=c
startbuchstabe = Mid(c.Value, 2, 1)
End If
Next
End Sub