Ich habe folgendes Makro erstellt um in einer großen Tabelle automatisch Seitenwechsel einzufügen:
Sub AI_Seitenwechsel_einfuegen()
Dim Z As Range
Dim A As Integer
Range("A1").Select
ActiveCell.Columns("A:A").EntireColumn.Select
For Each Z In Selection
If Z.Value = "Anfang - Seite : 1" Then ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
ActiveCell.Offset(1, 0).Range("A1").Select
If ActiveCell = "Ende" Then GoTo weiter
Next
weiter:
ActiveWindow.ScrollRow = 1
ActiveCell.Offset(-3299, 0).Range("A1").Select
End Sub
Beim ausführen des Makros erhalte ich folgende Fehlermeldung:
Laufzeitfehler '1004':
Anwendungs- oder objektdefinierter Fehler.
Kann mir hier jemand helfen?
Vielen Dank im vorraus!
Gruß
Werner T.