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 Sub

Opmerking: 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 Sub

Opmerking: 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?