Hoe wis je de inhoud van een keuzelijst in Excel met VBA-code?
Normaal gesproken wist u de inhoud van een keuzelijst door de bijbehorende invoerbereik-lijstgegevens te wissen. Maar hoe wisst u de inhoud van álle keuzelijsten in een Excel-werkblad tegelijk? Dit artikel bevat twee VBA-codes die u helpen om niet alleen de inhoud van één keuzelijst te wissen, maar ook die van alle keuzelijsten in één keer binnen een Excel-werkblad.
Wis eenvoudig de inhoud van een keuzelijst met VBA-code
Wis eenvoudig de inhoud van een keuzelijst met VBA-code
De onderstaande twee VBA-codes helpen u de inhoud van één keuzelijst of van alle keuzelijsten in het actieve werkblad te wissen. Volg hiervoor de volgende stappen.
1. Druk in het werkblad waarin u de inhoud van een keuzelijst wilt wissen tegelijkertijd op de toetsen Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > Module. Kopieer vervolgens de onderstaande VBA-code naar het codovenster.
VBA 1: Wis de inhoud van een keuzelijst in een werkblad
Sub ClearAComboBox()
ActiveSheet.Shapes.Range(Array("Drop Down 2")).Select
With Selection
.ListFillRange = ""
End With
End SubOpmerking: In de code is ‘Drop Down 2’ de naam van de keuzelijst waarvan u de inhoud wilt wissen. Pas deze aan naar uw eigen situatie.
VBA 2: Wis de inhoud van alle keuzelijsten in het actieve werkblad
Sub ClearComboBox()
Dim xOle As OLEObject
Dim xDrop As DropDown
Application.ScreenUpdating = False
For Each xOle In ActiveSheet.OLEObjects
If TypeName(xOle.Object) = "ComboBox" Then
xOle.ListFillRange = ""
End If
Next
For Each xDrop In ActiveSheet.DropDowns
xDrop.ListFillRange = ""
Next
Application.ScreenUpdating = True
End Sub3. Druk op de toets F5 of klik op de knop Uitvoeren om de code uit te voeren.
U ziet nu dat de inhoud is gewist in de opgegeven keuzelijst of in alle keuzelijsten in het actieve werkblad, zoals in de onderstaande schermafbeelding wordt getoond:
Opmerking: De VBA-codes werken zowel met de keuzelijst (formulierbesturingselement) als met de keuzelijst (ActiveX-besturingselement).
Ontgrendel de magie van Excel met KUTOOLS AI
- Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
- aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
- VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules moeiteloos.
- Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Gerelateerde artikelen:
- Hoe wis je tegelijkertijd inhoud én opmaak van cellen in Excel?
- Hoe verwijder je de inhoud van een benoemd bereik in Excel?
- Hoe verwijder je beperkte waarden uit cellen in Excel?
- Hoe wis je de inhoud van bepaalde cellen wanneer de waarde van een andere cel in Excel verandert?
- Hoe wis je de inhoud van bepaalde cellen bij het openen en sluiten van een Excel-werkboek?
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