Hoe een keuzelijstwaarde naar de actieve cel in Excel kopiëren?
In sommige gevallen moet u mogelijk de geselecteerde waarde uit een keuzelijst naar de actieve cel kopiëren. Normaal gesproken moet u handmatig in de keuzelijst komen, de waarde kopiëren en deze in de actieve cel plakken. Dit artikel introduceert een handige methode om de actieve cel automatisch bij te werken terwijl u waarden selecteert in een keuzelijst.
Keuzelijstwaarde naar actieve cel kopiëren met VBA-code
VBA 1: Keuzelijstwaarde naar actieve cel kopiëren via Opdracht
VBA 2: Automatisch keuzelijstwaarde naar actieve cel kopiëren
Keuzelijstwaarde naar actieve cel kopiëren met VBA-code
De onderstaande VBA-codes kunnen u helpen om de keuzelijstwaarde automatisch naar de actieve cel te kopiëren. Volg de onderstaande stappen.
VBA 1: Keuzelijstwaarde naar actieve cel kopiëren via Opdrachtknop
1. Voeg eerst een opdrachtknop in het werkblad in, zoals te zien is in de onderstaande schermafbeelding.
2. Klik met de rechtermuisknop op de opdrachtknop en klik vervolgens op Weergave Code in het rechtermuisknopmenu. Zie schermafbeelding:
3. Vervang in het venster Microsoft Visual Basic for Applications dat verschijnt de originele code in het Code-venster door de onderstaande VBA-code.
VBA-code: Keuzelijstwaarde naar actieve cel kopiëren
Private Sub CommandButton1_Click()
ActiveCell.Value = Me.ComboBox1.Text
End SubOpmerking: In de code is CommandButton1 de naam van de ingevoegde opdrachtknop en ComboBox1 de naam van de keuzelijst waaruit u de waarde kopieert. Wijzig ze indien nodig.
4. Druk op de toetsen Alt + Q om het venster Microsoft Visual Basic for Applications te sluiten.
Vanaf nu kunt u, wanneer u de keuzelijstwaarde naar de actieve cel wilt kopiëren, gewoon de cel selecteren en vervolgens op de Opdrachtknop klikken om dit te voltooien.
VBA 2: Automatisch keuzelijstwaarde naar actieve cel kopiëren
De onderstaande VBA-code kan u helpen om de actieve cel automatisch bij te werken terwijl u waarden selecteert in een keuzelijst. U kunt als volgt te werk gaan.
1. Zorg ervoor dat de Ontwerpmodus is ingeschakeld onder het tabblad Ontwikkelaar.
2. Klik met de rechtermuisknop op de keuzelijst waaruit u de waarde kopieert en klik vervolgens op Weergave Code in het rechtermuisknopmenu. Zie schermafbeelding:
3. Vervang in het venster Microsoft Visual Basic for Applications dat verschijnt de originele code in het Code-venster door de onderstaande VBA-code.
VBA-code: Keuzelijstwaarde naar actieve cel kopiëren
Private Sub ComboBox1_Change()
ActiveCell.Value = Me.ComboBox1.Value
End SubOpmerking: In de code is ComboBox1 de naam van de keuzelijst waaruit u de waarde kopieert.
4. Druk op de toetsen Alt + Q om het venster Microsoft Visual Basic for Applications te sluiten en schakel de Ontwerpmodus uit onder het tabblad Ontwikkelaar.
Vanaf nu zal, wanneer u een waarde uit de keuzelijst selecteert, deze geselecteerde waarde automatisch in de actieve cel worden weergegeven.
Gerelateerde artikelen:
- Hoe een datumformaat weer te geven in de uitvoer van een keuzelijst in Excel?
- Hoe een opdrachtknop te verbergen of zichtbaar maken op basis van een specifieke celwaarde in Excel?
- Hoe een specifiek werkblad te openen op basis van de geselecteerde waarde van een keuzelijst in Excel?
- Hoe typen in een keuzelijst te voorkomen of uitschakelen in Excel?
- Hoe uit een keuzelijst te tabuleren om een specifieke cel in Excel te selecteren?
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