Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
120to124
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
120to124
120to124
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Problem mit Seitenwechsel in VBA

Problem mit Seitenwechsel in VBA
22.05.2002 16:40:10
Werner T.
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.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Problem mit Seitenwechsel in VBA
25.05.2002 08:42:49
Hans W. Hofmann
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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige