Hoe een werkblad openen door de naam ervan te selecteren in een keuzelijst in Excel?
Stel dat je een Keuzelijst hebt in je Excel-werkboek met daarin een lijst van alle werkbladnamen. Je wilt een specifiek werkblad openen door de naam ervan te selecteren in de Keuzelijst. Deze handleiding laat zien hoe je dit kunt doen met behulp van VBA-code, met stappen om de Keuzelijst te vullen met werkbladnamen en de gewenste functionaliteit in te schakelen.
Open een werkblad door de naam ervan te selecteren in een keuzelijst met VBA-code
Open een werkblad door de naam ervan te selecteren in een keuzelijst met VBA-code
De onderstaande VBA-code kan je helpen naar een specifiek werkblad te gaan op basis van de selectie in de Keuzelijst in Excel. Volg de volgende stappen.
Opmerking: Als de Keuzelijst geen enkele werkbladnaam bevat in je werkblad, volg dan de onderstaande tip om snel alle werkbladnamen toe te voegen aan die Keuzelijst. Als er al een Keuzelijst bestaat met alle werkbladnamen, ga dan direct naar stap 1.
Tip: Voeg een Opdrachtknop 1 in je werkblad in, klik er met de rechtermuisknop op en selecteer Weergave Code uit het rechtermuisknopmenu. Kopieer en plak vervolgens de onderstaande VBA-code in het Codevenster, en druk op de Alt + Q toetsen om het Microsoft Visual Basic for Application-venster te sluiten. Klik op de ingevoegde Opdrachtknop, dan worden alle werkbladnamen van het huidige werkboek automatisch toegevoegd aan ComboBox1.
VBA-code: Voeg eenvoudig alle werkbladnamen toe aan een Keuzelijst
Private Sub CommandButton1_Click()
Me.ComboBox1.Clear
Dim strWs As String
Dim i As Integer
For i = 1 To ThisWorkbook.Sheets.Count
Me.ComboBox1.AddItem Sheets(i).Name
Next
End Sub
Als er al een Keuzelijst bestaat met alle werkbladnamen, doe dan het volgende.
1. Schakel de Ontwerpmodus in onder het tabblad Ontwikkelaar.
2. Klik met de rechtermuisknop op de keuzelijst met werkbladnamen, en klik vervolgens op Weergave Code in het rechtermuisknopmenu.
3. Het Microsoft Visual Basic for Applications-venster verschijnt. Vervang de oorspronkelijke VBA-code in het Codevenster door de onderstaande VBA-code.
VBA-code: Open een specifiek werkblad via de geselecteerde waarde van de Keuzelijst
Private Sub ComboBox1_Change()
Dim actWsh As String
actWsh = ComboBox1.Text
Worksheets(actWsh).Select
End Sub
Opmerking: In de code is ComboBox1 de naam van de keuzelijst die de werkbladnamen bevat.
4. Druk op de Alt + Q toetsen om het Microsoft Visual Basic for Applications-venster te sluiten, en schakel de Ontwerpmodus uit onder het tabblad Ontwikkelaar.
Nu zal het selecteren van elke werkbladnaam in de Keuzelijst automatisch het bijbehorende werkblad openen.
Alle werkbladnamen van het huidige werkboek gemakkelijk weergeven in Excel:
Het gebruik van een bladindex in je werkboek helpt je om je werkbladen gemakkelijk te beheren. Met het hulpprogramma Maak koppeltabel van Kutools voor Excel kun je eenvoudig een bladindex maken met alle werkbladnamen in het huidige werkboek. Daarna kun je snel naar een bepaald werkblad gaan door gewoon op de werkbladnaam in het Indexwerkblad te klikken. Zie onderstaande schermafbeelding:
Kutools voor Excel - Boost Excel met meer dan 300 essentiële tools. Geniet van permanent gratis AI-functies! Nu verkrijgen
Gerelateerde artikelen:
- Hoe kopieer je de waarde van een keuzelijst naar de actieve cel in Excel?
- Hoe geef je datumnotatie weer in de uitkomst van een keuzelijst in Excel?
- Hoe verberg je of toon je een Opdrachtknop op basis van een gespecificeerde celwaarde in Excel?
- Hoe voorkom je of schakel je typen uit in een keuzelijst in Excel?
- Hoe ga je met Tab uit een keuzelijst om een specifieke cel te selecteren in Excel?
Beste Office-productiviteitstools
Versterk je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!