Hoe een tekstvak te vullen op basis van de selectie in een combobox op een UserForm in Excel?
Stel dat je een tabel hebt met een Naam- en een Personeelsnummerkolom, zoals in onderstaande schermafbeelding te zien is. Nu moet je een Userform maken met een combobox die alle namen bevat en een tekstvak dat het bijbehorende personeelsnummer invult wanneer je een naam selecteert uit de combobox. De methode in dit artikel kan je helpen om dit voor elkaar te krijgen.
Tekstvak vullen op basis van comboboxselectie op Userform met VBA
Tekstvak vullen op basis van comboboxselectie op Userform met VBA
Volg de volgende stappen om een tekstvak te vullen met de bijbehorende waarde op basis van de selectie in een combobox op een Userform.
1. Druk 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. Zie onderstaande schermafbeelding:
3. Voeg vervolgens een Combobox-besturingselement en een Tekstvak-besturingselement in op de aangemaakte Userform, zoals te zien is in onderstaande schermafbeelding.
4. Klik met de rechtermuisknop op een lege ruimte van de Userform en klik vervolgens op Code weergeven in het contextmenu. Zie onderstaande schermafbeelding:
5. Plak in het geopende Userform (Code) venster de onderstaande VBA-code en vervang daarmee de originele code.
VBA-code: Tekstvak vullen op basis van comboboxselectie op Userform
Dim xRg As Range
'Updated by Extendoffice 2018/1/30
Private Sub UserForm_Initialize()
Set xRg = Worksheets("Sheet5").Range("A2:B8")
Me.ComboBox1.List = xRg.Columns(1).Value
End Sub
Private Sub ComboBox1_Change()
Me.TextBox1.Text = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, xRg, 2, False)
End SubOpmerking: In de code is A2:B2 het bereik dat de waarden bevat die je afzonderlijk wilt invullen in zowel de combobox als het tekstvak van de Userform. En Sheet5 is de naam van het werkblad dat het gegevensbereik bevat. Pas deze aan naar behoefte.
6. Druk op de toetsen Alt + Q om het Microsoft Visual Basic for Applications-venster te sluiten.
7. Klik op Ontwikkelaar > Invoegen > Opdrachtknop (ActiveX-besturingselement) om een opdrachtknop in het werkblad in te voegen.
8. Klik met de rechtermuisknop op het tabblad van het werkblad en selecteer Code weergeven in het rechtermuisknopmenu. Plak vervolgens de VBA-code in het codewindow.
VBA-code: Gebruikersformulier weergeven
Private Sub CommandButton1_Click()
'Updated by Extendoffice 2018/1/30
UserForm1.Show
End Sub9. Schakel de Ontwerpmodus uit in de werkmap.
Klik op de opdrachtknop om het specifieke gebruikersformulier te openen. Je kunt nu zien dat alle namen zijn verzameld in de combobox. Wanneer je een naam selecteert uit de combobox, wordt het bijbehorende personeelsnummer automatisch ingevuld in het tekstvak, zoals te zien is in onderstaande schermafbeelding.
Gerelateerde artikelen:
- Hoe vul je een combobox met gespecificeerde gegevens bij het openen van een werkmap?
- Hoe vul je andere cellen automatisch wanneer je waarden selecteert in een keuzelijst in Excel?
- Hoe vul je andere cellen automatisch wanneer je waarden selecteert in een keuzelijst in Excel?
- Hoe vul je Google-zoekresultaten naar een werkblad in Excel?
Beste productiviteitstools voor Office
Verbeter 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 kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- 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!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen