Hoe navigeert u met een keuzelijst tussen werkbladen in Excel?
Stel dat u een werkmap hebt met meerdere werkbladen en u wilt een keuzelijst of combobox maken waarin alle bladnamen worden weergegeven, zodat u direct naar het geselecteerde werkblad springt zodra u een naam kiest. In dit artikel leg ik uit hoe u eenvoudig tussen werkbladen kunt navigeren met een keuzelijst in Excel.
Navigeren tussen werkbladen met behulp van een keuzelijst in Excel
Navigeren tussen werkbladen met behulp van een keuzelijst in Excel
Volg deze stappen om naar elk geselecteerd werkblad te springen met behulp van een keuzelijst:
1. Klik op Ontwikkelaar > Invoegen > Combobox (ActiveX-besturingselement), zie schermafbeelding:
2. Sleep vervolgens de muisaanwijzer om een combobox te tekenen, klik er met de rechtermuisknop op en selecteer Code weergeven in het contextmenu. Zie schermafbeelding:
3. Plak in het geopende Microsoft Visual Basic for Applications-venster de volgende code om de oorspronkelijke code te vervangen, zie schermafbeelding:
VBA-code: Navigeren tussen werkbladen met behulp van een keuzelijst
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. Sluit het codevenster via Opslaan en sluiten en klik vervolgens op Ontwerpmodus om de ontwerpmodus uit te schakelen. Vanaf nu springt u direct naar het geselecteerde werkblad zodra u een bladnaam kiest in de combobox, zie schermafbeelding:
Navigeer tussen werkbladen met behulp van hyperlinks of knoppen: Met het hulpprogramma Maak koppeltabel van Kutools voor Excel kunt u in een handomdraai alle werkbladnamen weergeven in een nieuw werkblad, compleet met hyperlinks of macroknoppen, zodat u moeiteloos tussen de werkbladen kunt navigeren.
Kutools voor Excel: met meer dan 300 handige Excel-add-ins, gratis uit te proberen zonder beperkingen gedurende 30 dagen.Download en start nu de gratis proefversie! |
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins