Hoe vul je een Userform ComboBox met alle bladnamen in Excel?

Dit artikel gaat over het vullen van alle bladnamen van het huidige werkboek in een userform Combo Box in Excel.

Vul een Userform ComboBox met alle bladnamen met VBA-code

Vul een Userform ComboBox met alle bladnamen met VBA-code

De volgende VBA-code kan helpen om alle bladnamen van het huidige werkboek in een userform combo box in te voegen. Volg de onderstaande stappen.

1. Druk gelijktijdig op de toetsen Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik in het Microsoft Visual Basic for Applications-venster op Invoegen > Userform om een Userform in te voegen, zoals te zien is in de onderstaande schermafbeelding.

3. Teken vervolgens een combobox-besturingselement en voeg deze toe aan de Userform. Zie schermafbeelding:

4. Klik met de rechtermuisknop op de ingevoegde combobox en selecteer Code weergeven in het contextmenu. Zie schermafbeelding:

5. Kopieer en plak in het geopende Microsoft Visual Basic for Applications-venster de onderstaande VBA-code om de originele code in het Code-venster te vervangen.

VBA-code: Vul een Userform ComboBox met alle bladnamen van het huidige werkboek

Private Sub UserForm_Initialize()
    Dim I As Long
    Me.ComboBox1.Clear
    For I = 1 To Sheets.Count
        Me.ComboBox1.AddItem Sheets(I).Name
    Next
    Me.ComboBox1.Value = ActiveSheet.Name
End Sub

Opmerking: In de code is ComboBox1 de naam van de ingevoegde Combo Box. Wijzig deze naar uw eigen naam.

6. Druk op de F5-toets om de code uit te voeren. In de geopende Userform kunt u zien dat alle bladnamen van het huidige werkboek worden weergegeven in de combobox, zoals te zien is in de onderstaande schermafbeelding:

Gerelateerde artikelen:

• Hoe kopieer je de waarde van een keuzelijst naar de actieve cel in Excel?
• Hoe geef je datumnotatie weer in de uitvoer van een keuzelijst in Excel?
• Hoe open je een specifiek werkblad via de geselecteerde waarde van een keuzelijst in Excel?
• Hoe voorkom je of schakel je typen uit in een keuzelijst in Excel?
• Hoe ga je met tab uit een keuzelijst naar een specifieke cel in Excel?