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
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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen