Zu einer bestimmten Seite springen (Microsoft Excel)
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.