Angenommen, Sie haben ein großes Arbeitsblatt, das beim Ausdrucken 16 Seiten benötigt. Möglicherweise fragen Sie sich, ob es bei der Arbeit innerhalb des Arbeitsblatts eine Möglichkeit gibt, zu einer bestimmten Seite zu springen, z. B. Seite 5.

Word-Benutzer wissen, dass sie in Word das Dialogfeld Gehe zu verwenden können, um zu verschiedenen Seiten zu springen. In Excel ist eine solche Funktion jedoch nicht vorhanden. Es gibt jedoch mehrere Möglichkeiten, wie Sie das Problem angehen können.

Ein Ansatz besteht darin, die Zelle auszuwählen, die oben auf einer Seite angezeigt wird.

(Zum Beispiel die Zelle, die oben links auf Seite 5 angezeigt wird.) Anschließend können Sie einen Namen für die Zelle definieren, z. B. Seite 05. Wenn Sie dies für jede Seite in Ihrem Arbeitsblatt tun, können Sie die Funktionen in Excel verwenden, um zu diesen Namen zu springen.

Eine andere Möglichkeit, dies zu tun, besteht darin, den Seitenumbruch-Vorschaumodus zu verwenden. (Um zur Seitenumbruchvorschau zu wechseln, wählen Sie Ansicht | Seitenumbruchvorschau.) Sie können dann sehen, wo sich die Seitenumbrüche befinden, eine Zelle auf der gewünschten Seite auswählen und dann zur normalen Ansicht zurückkehren.

Es ist auch möglich, ein Makro zu erstellen, mit dem Sie zu einer bestimmten Seite springen können, aber es ist nicht so einfach, wie Sie vielleicht denken. Der Grund liegt in der möglichen Verwendung von harten Seitenumbrüchen, die sich ändern können, wo Seiten beginnen und enden. Das folgende Makro könnte jedoch den Trick für Sie tun. Es fordert den Benutzer zur Eingabe einer Seitenzahl auf und wählt dann die obere linke Zelle auf der eingegebenen Seite aus.

Sub GotoPageBreak()

Dim iPages As Integer     Dim wks As Worksheet     Dim iPage As Integer     Dim iVertPgs As Integer     Dim iHorPgs As Integer     Dim iHP As Integer     Dim iVP As Integer     Dim iCol As Integer     Dim lRow As Long     Dim sPrtArea As String     Dim sPrompt As String     Dim sTitle As String

Set wks = ActiveSheet     iPages = ExecuteExcel4Macro("Get.Document(50)")

iVertPgs = wks.VPageBreaks.Count + 1     iHorPgs = wks.HPageBreaks.Count + 1     sPrtArea = wks.PageSetup.PrintArea

sPrompt = "Enter a page number (1 through "

sPrompt = sPrompt & Trim(Str(iPages)) & ") "

sTitle = "Enter Page Number"



iPage = InputBox(Prompt:=sPrompt, Title:=sTitle)



If wks.PageSetup.Order = xlDownThenOver Then         iVP = Int((iPage - 1) / iHorPgs)

iHP = ((iPage - 1) Mod iHorPgs)

Else         iHP = Int((iPage - 1) / iVertPgs)

iVP = ((iPage - 1) Mod iVertPgs)

End If

If iVP = 0 Then         If sPrtArea = "" Then             iCol = 1         Else             iCol = wks.Range(sPrtArea).Cells(1).Column         End If     Else         iCol = wks.VPageBreaks(iVP).Location.Column     End If

If iHP = 0 Then         If sPrtArea = "" Then             lRow = 1         Else             lRow = wks.Range(sPrtArea).Cells(1).Row         End If     Else         lRow = wks.HPageBreaks(iHP).Location.Row     End If

wks.Cells(lRow, iCol).Select     Set wks = Nothing End Sub

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (5823) gilt für Microsoft Excel 97, 2000, 2002 und 2003.