Maren hat ein Dokument mit einer sehr großen Tabelle, die viele Seiten umfasst. Sie möchte die Möglichkeit haben, zu einer bestimmten Zeile in der Tabelle zu springen, und fragt sich, ob es möglich ist, mit der Funktion „Gehe zu“ zu einer bestimmten Zeilennummer zu springen, z. B. Zeile 80.

Im Dialogfeld Gehe zu (das durch Drücken von F5 angezeigt wird) können Sie zu vielen verschiedenen Stellen in einem Dokument springen. (Wie Sie das Dialogfeld verwenden, wurde in anderen Ausgaben von WordTips behandelt.) Es ist tatsächlich möglich, es mit Tabellenzeilen zu verwenden, mit einer großen Einschränkung.

Wenn Ihr Dokument nur eine Tabelle enthält, können Sie mit den folgenden Schritten zu Zeilen springen:

  1. Drücken Sie F5. Word zeigt die Registerkarte Gehe zu des Dialogfelds Suchen und Ersetzen an.

  2. Wählen Sie auf der linken Seite des Dialogfelds Linie. (Siehe Abbildung 1.)

  3. Geben Sie die Zeilennummer ein, in die Sie verschieben möchten.

  4. Klicken Sie auf Weiter oder drücken Sie die Eingabetaste.

Dies funktioniert, weil Word anscheinend jede Zeile in der Tabelle als „Zeile“ betrachtet. (Es ist auch nicht betroffen, aber Zeilen, die umbrochene Zeilen oder mehrere Absätze enthalten.) Dies bringt mich zu der Einschränkung: Wenn Ihr Dokument mehr als eine Tabelle enthält – insbesondere Text vor der Tabelle -, wird das Zeilenspringen deaktiviert, da Word zählt den Nicht-Tabellentext in seinen Zeilenzählungsberechnungen.

In diesem Fall müssen Sie ein Makro verwenden, um zur gewünschten Zeile zu springen.

Das Folgende ist ein Beispiel für eines, das verwendet werden könnte.

Sub GoToTableRow()

Dim RowNum As Integer     Dim LastRow As Integer     Dim Question As String

If Selection.Information(wdWithInTable) Then         LastRow = Selection.Tables(1).Rows.Count         Question = "Enter a number from 1 to " & LastRow         RowNum = InputBox(Question, 1)

If (RowNum < 1) Or (RowNum > LastRow) Then             MsgBox "That's an invalid row number"

Exit Sub         End If         Selection.Tables(1).Rows(RowNum).Cells(1).Select     Else         MsgBox "Not in table"

End If End Sub

Das Makro überprüft zunächst, ob sich die Einfügemarke in einer Tabelle befindet. In diesem Fall wird der Benutzer gefragt, zu welcher Zeilennummer er springen möchte. Angenommen, die Zeilennummer liegt im Bereich der verfügbaren Zeilennummern, wird zu der Zeile gesprungen.

_Hinweis: _

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

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die beliebteste Textverarbeitungssoftware der Welt.) Dieser Tipp (10906) gilt für Microsoft Word 2007, 2010 und 2013.