Wie scrollt man ein bestimmtes Blatt oder alle Blätter zur obersten Zeile in Excel?

Ob Sie ein bestimmtes Blatt oder alle Blätter in einer Arbeitsmappe nach oben scrollen möchten, der VBA-Code bietet eine schnelle und effiziente Lösung. Dieser Leitfaden erklärt, wie Sie einfache VBA-Skripte verwenden, um Ihre Navigation zu optimieren und sich auf Ihre Daten zu konzentrieren.

Scrollen Sie ein bestimmtes Blatt oder alle Blätter mit VBA-Code zur obersten Zeile.

Scrollen Sie ein bestimmtes Blatt oder alle Blätter mit VBA-Code zur obersten Zeile.

Um ein bestimmtes Blatt oder alle Blätter in Excel zur obersten Zeile zu scrollen, gehen Sie bitte wie folgt vor.

1. Drücken Sie in dem Arbeitsblatt, das Sie nach oben scrollen möchten, die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul. Kopieren Sie dann einen der unten stehenden VBA-Codes und fügen Sie ihn in das Codefenster ein.

VBA-Code: Scrollen Sie ein bestimmtes Arbeitsblatt zur obersten Zeile.

Sub ScrollToTop()
ActiveWindow.ScrollRow = 1
End Sub

VBA-Code: Scrollen Sie alle Arbeitsblätter zur obersten Zeile.

Sub Select_A1_On_Activeworkbook()
    Dim xSheet As Worksheet
    For Each xSheet In ActiveWorkbook.Sheets
        xSheet.Activate
        ActiveSheet.Range("A1").Select
    Next
    ActiveWorkbook.Worksheets(1).Activate
End Sub

3. Nachdem Sie den VBA-Code in das Codefenster eingegeben haben, drücken Sie bitte die Taste F5, um den Code auszuführen.

Das aktive Arbeitsblatt oder alle Arbeitsblätter in der aktuellen Arbeitsmappe werden sofort zur obersten Zeile gescrollt.