Wie navigiert man zwischen Arbeitsblättern mithilfe einer Dropdown-Liste in Excel?

Angenommen, Sie haben eine Arbeitsmappe mit mehreren Arbeitsblättern und möchten nun eine Dropdown-Liste oder ein Kombinationsfeld erstellen, das alle Blattnamen auflistet. Wenn Sie einen Blattnamen aus der Dropdown-Liste auswählen, soll sofort zu diesem Blatt gewechselt werden. In diesem Artikel stelle ich vor, wie Sie zwischen Arbeitsblättern mithilfe einer Dropdown-Liste in Excel navigieren.

Zwischen Arbeitsblättern mithilfe einer Dropdown-Liste in Excel navigieren

Zwischen Arbeitsblättern mithilfe einer Dropdown-Liste in Excel navigieren

Um zu jedem ausgewählten Blatt mithilfe einer Dropdown-Liste zu springen, führen Sie bitte die folgenden Schritte aus:

1. Klicken Sie auf Entwickler > Einfügen > Kombinationsfeld (ActiveX-Steuerelement), siehe Screenshot:

2. Ziehen Sie dann die Maus, um ein Kombinationsfeld zu zeichnen, und klicken Sie es mit der rechten Maustaste an. Wählen Sie Code anzeigen aus dem Kontextmenü, siehe Screenshot:

3. Kopieren Sie im geöffneten Fenster Microsoft Visual Basic for Applications den folgenden Code und fügen Sie ihn ein, um den ursprünglichen Code zu ersetzen, siehe Screenshot:

VBA-Code: Zwischen Arbeitsblättern mithilfe einer Dropdown-Liste navigieren

Private Sub ComboBox1_Change()
'Updateby Extendoffice
    If ComboBox1.ListIndex > -1 Then Sheets(ComboBox1.Text).Select
End Sub
Private Sub ComboBox1_DropButtonClick()
    Dim xSheet As Worksheet
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    If ComboBox1.ListCount <> ThisWorkbook.Sheets.Count Then
        ComboBox1.Clear
        For Each xSheet In ThisWorkbook.Sheets
            ComboBox1.AddItem xSheet.Name
        Next xSheet
    End If
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub
Private Sub ComboBox1_GotFocus()
    If ComboBox1.ListCount <> 0 Then ComboBox1.DropDown
End Sub

4. Speichern Sie dann dieses Codefenster und schließen Sie es. Klicken Sie anschließend auf den Entwurfsmodus, um den Entwurfsmodus zu deaktivieren. Wenn Sie nun einen Blattnamen aus dem Kombinationsfeld auswählen, wird sofort zu diesem Blatt gewechselt, siehe Screenshot: