Seitenumbruch

Forumthread: Seitenumbruch
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Seitenumbruch

Seitenumbruch

11.12.2005 14:37:47

Hugo

Hallo zusammen
Ist es möglich via VBA-Code zum nächsten Seitenumbruch zu gelangen und wenn ja wie?
Besten Dank für Eure Hilfe
Gruss Hugo

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Seitenumbruch

11.12.2005 15:21:20

Matthias
AW: Seitenumbruch

11.12.2005 18:03:42

Hugo

AW: Seitenumbruch

11.12.2005 15:21:20

Matthias

Hallo Hugo,
wie immer recht träge, wenn man auf die Seitenumbrüche zugreift:


Sub NaechsteSeite()
Dim z As Range
Dim i As Integer, lR As Long
i = 1
Application.ScreenUpdating = False
ActiveWindow.View = xlPageBreakPreview
With ActiveSheet
Set z = .Cells(Selection.Row, 1)
Do
lR = .HPageBreaks(i).Location.Row
i = i + 1
Loop Until i > .HPageBreaks.Count Or lR > z.Row
If lR > Selection.Row Then
.Cells(lR, Selection.Column).Select
ActiveWindow.ScrollRow = lR - 1 'schnickschnack
Else
MsgBox "keine Folgeseite vorhanden!"
End If
End With
ActiveWindow.View = xlNormalView
Application.ScreenUpdating = True
End Sub

Gruß Matthias

AW: Seitenumbruch

11.12.2005 18:03:42

Hugo

Hallo Mathias
Besten Dank für die rasche Antwort. Hilft mir sehr, meine Aufgabe zu lösen.
Gruss Hugo