Hoe navigeer je tussen werkbladen met behulp van een vervolgkeuzelijst in Excel?

Stel dat je een werkboek hebt dat meerdere werkbladen bevat, en nu wil je een vervolgkeuzelijst of combobox maken die alle bladnamen opsomt. Wanneer je een bladnaam selecteert uit de vervolgkeuzelijst, springt het direct naar dat blad. In dit artikel introduceer ik hoe je tussen werkbladen kunt navigeren met behulp van een vervolgkeuzelijst in Excel.

Navigeer tussen werkbladen met behulp van een vervolgkeuzelijst in Excel

Navigeer tussen werkbladen met behulp van een vervolgkeuzelijst in Excel

Om naar elk geselecteerd blad te springen met behulp van een vervolgkeuzelijst, volg dan de volgende stappen:

1. Klik op Ontwikkelaar > Invoegen > Combobox (ActiveX-besturingselement), zie screenshot:

2. Sleep vervolgens de muis om een combobox te tekenen, en klik er met de rechtermuisknop op, selecteer Code weergeven in het contextmenu, zie screenshot:

3. Kopieer en plak in het geopende Microsoft Visual Basic for Applications-venster de volgende code om de originele code te vervangen, zie screenshot:

VBA-code: Navigeer tussen werkbladen met behulp van een vervolgkeuzelijst

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. Sla daarna deze codewindow op en sluit het, en klik vervolgens op Ontwerpmodus om de ontwerpmodus uit te schakelen. Nu, wanneer je een bladnaam selecteert uit de combobox, springt het direct naar dat blad, zie screenshot: