Problem mit Seitenwechsel in VBA



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Problem mit Seitenwechsel in VBA
von: Werner T.
Geschrieben am: 22.05.2002 - 16:40:10

Hallo!

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.

nach oben   nach unten

Re: Problem mit Seitenwechsel in VBA
von: Hans W. Hofmann
Geschrieben am: 25.05.2002 - 08:42:49

Hallo Werner,


dann wollen wir Deinen Code mal entrümpeln ;-)...
Lies mal die VBA-Basic's von HWH und stell das Selectieren ab.

Sub AI_Seitenwechsel_einfuegen()
Dim Z As Range
Dim a As Integer
Set Z = Range("A:A")
a = 1: Do
If Z(a) = "Anfang - Seite : 1" Then _
ActiveSheet.HPageBreaks.Add Before:=Z(a)
a = a + 1
Loop Until Z(a) = "Ende"
End Sub

Klappt das mit diesem Nachbarn?

Gruß HW

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Problem mit Seitenwechsel in VBA"