Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

Hoe kopieer ik de keuzelijst met invoervak ​​naar de actieve cel in Excel?

In sommige gevallen moet u de geselecteerde waarde van een keuzelijst met invoervak ​​naar de actieve cel kopiëren. Normaal gesproken moet u in de keuzelijst met invoervak ​​gaan, deze handmatig kopiëren en in de actieve cel plakken. Dit artikel introduceert een handige methode om de actieve cel automatisch bij te werken tijdens het selecteren van waarden in een keuzelijst met invoervak.

Kopieer de keuzelijst met invoervak ​​naar de actieve cel met VBA-code

VBA 1: kopieer de combobox-waarde naar de actieve cel via Command
VBA 2: waarde met invoervak ​​automatisch kopiëren naar actieve cel


Kopieer de keuzelijst met invoervak ​​naar de actieve cel met VBA-code


De onderstaande VBA-codes kunnen u helpen de keuzelijst met invoervak ​​automatisch naar de actieve cel te kopiëren. Ga als volgt te werk.

VBA 1: kopieer de waarde van de keuzelijst naar de actieve cel via de Command-knop

1. Ten eerste moet u een Command-knop in het werkblad invoegen zoals hieronder afgebeeld.

2. Klik met de rechtermuisknop op de opdrachtknop en klik vervolgens op Bekijk code vanuit het rechtsklikmenu. Zie screenshot:

3. In het opduiken Microsoft Visual Basic voor toepassingen -venster, vervangt u de originele code in het codevenster door de onderstaande VBA-code.

VBA-code: kopieer de waarde van de keuzelijst naar de actieve cel

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 is de naam van de keuzelijst met invoervak ​​waarvan u de waarde wilt kopiëren. Wijzig ze indien nodig.

4. druk de anders + Q toetsen om de Microsoft Visual Basic voor toepassingen venster.

Vanaf nu, wanneer u de keuzelijst met invoervak ​​naar de actieve cel moet kopiëren, selecteert u gewoon de cel en klikt u vervolgens op de opdrachtknop om het voor elkaar te krijgen.

VBA 2: waarde met invoervak ​​automatisch kopiëren naar actieve cel

De onderstaande VBA-code kan u helpen de actieve cel automatisch bij te werken terwijl u waarden in een keuzelijst met invoervak ​​selecteert. U kunt het volgende doen.

1. Zorg ervoor dat de Ontwerpmodus is ingeschakeld onder de Ontwikkelaar Tab.

2. Klik met de rechtermuisknop op de keuzelijst met invoervak ​​waarvan u de waarde wilt kopiëren en klik vervolgens op Bekijk code vanuit het rechtsklikmenu. Zie screenshot:

3. In het opduiken Microsoft Visual Basic voor toepassingen vervangt u de originele code in het Code venster met de onderstaande VBA-code.

VBA-code: kopieer de waarde van de keuzelijst naar de actieve cel

Private Sub ComboBox1_Change()
  ActiveCell.Value = Me.ComboBox1.Value
End Sub

Opmerking:: In de code is ComboBox1 de naam van de Combo Box waarvan u de waarde wilt kopiëren.

4. druk de anders + Q -toetsen om het Microsoft Visual Basic for Applications-venster te sluiten en de ontwerpmodus uit te schakelen op het tabblad Developer.

Vanaf nu, wanneer u een waarde selecteert in de keuzelijst met invoervak, wordt dit geselecteerde record automatisch in de actieve cel weergegeven.


Gerelateerde artikelen:


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken voor u!
officetab onderkant
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    asep · 1 months ago
    Kalau sel aktifnya ditentuka, seperti misalnya D7, bagaimana code nya?
    Terima Kasih
    • To post as a guest, your comment is unpublished.
      asep · 1 months ago
      maksud saya, code vba berikut, untuk cel aktif yang random
      Kode VBA: Salin nilai Combo Box ke sel aktif
      Private Sub ComboBox1_Change()
      ActiveCell.Value = Me.ComboBox1.Value
      End Sub

      kalau cel aktifnya ingin di tentukan misalnya text dari combo box tersebut ingin berada di cell D7, bagaimana merubah code vba nya
      terima kasih