Hoe vult u een tekstvak in op basis van de keuze in een keuzelijst op een gebruikersformulier in Excel?
Stel dat u een tabel hebt met een kolom voor Naam en een kolom voor Personeelsnummer, zoals in onderstaande afbeelding. U wilt nu een gebruikersformulier maken met daarin een keuzelijst die alle namen bevat en een tekstvak dat automatisch het bijbehorende personeelsnummer invult wanneer u een naam selecteert in de keuzelijst. De methode in dit artikel helpt u hiermee aan de slag.
Tekstvak invullen op basis van keuzelijstselectie in gebruikersformulier met VBA
Tekstvak invullen op basis van keuzelijstselectie in gebruikersformulier met VBA
Volg deze stappen om het tekstvak automatisch in te vullen met de bijbehorende waarde op basis van uw keuze in de keuzelijst van het gebruikersformulier.
1. Druk op Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > Gebruikersformulier. Zie afbeelding:
3. Voeg vervolgens, zoals in de onderstaande afbeelding is te zien, een keuzelijstbesturingselement en een tekstvakbesturingselement toe aan het gemaakte gebruikersformulier.
4. Klik met de rechtermuisknop op een lege plek van het gebruikersformulier en selecteer vervolgens Code weergeven in het contextmenu. Zie afbeelding:
5. Plak in het geopende venster Gebruikersformulier (Code) de onderstaande VBA-code om de bestaande code te vervangen.
VBA-code: Tekstvak invullen op basis van keuzelijstselectie in gebruikersformulier
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 met de waarden die u afzonderlijk wilt invullen in zowel de keuzelijst als het tekstvak van het gebruikersformulier. Blad5 is de naam van het werkblad dat het gegevensbereik bevat. Pas deze waarden naar wens aan.
6. Druk op Alt + Q om het venster Microsoft Visual Basic for Applications 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 bladtab en selecteer Code weergeven in het contextmenu. Plak vervolgens de VBA-code in het codevenster.
VBA-code: Gebruikersformulier weergeven
Private Sub CommandButton1_Click()
'Updated by Extendoffice 2018/1/30
UserForm1.Show
End Sub9. Schakel de ontwerpmodus uit in uw werkmap.
Klik op de opdrachtknop om het opgegeven gebruikersformulier te openen. Vervolgens ziet u dat alle namen zijn verzameld in de keuzelijst. Zodra u een naam selecteert, wordt het bijbehorende personeelsnummer automatisch ingevuld in het tekstvak, zoals in de onderstaande afbeelding wordt getoond.
Gerelateerde artikelen:
- Hoe vult u een keuzelijst met vooraf opgegeven gegevens zodra een werkmap wordt geopend?
- Hoe vult u automatisch andere cellen in wanneer u waarden selecteert uit een keuzelijst in Excel?
- Hoe vult u automatisch andere cellen in wanneer u waarden selecteert in een Excel-keuzelijst?
- Hoe kunt u Google-zoekresultaten in een werkblad in Excel invullen?
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