Hoe de inhoud van de keuzelijst met invoervak ​​met VBA-code in Excel te wissen?

Normaal gesproken kunt u de inhoud van een keuzelijst met invoervak ​​wissen door de lijstgegevens van het invoerbereik te wissen. Maar hoe zit het met het wissen van de inhoud van alle keuzelijsten met invoervak ​​in een Excel-werkblad? Dit artikel bereidt twee VBA-codes voor om u te helpen niet alleen de inhoud van een keuzelijst met invoervak ​​te wissen, maar ook de inhoud van alle keuzelijsten met invoervak ​​tegelijk in een Excel-werkblad te wissen.

Wis de inhoud van de keuzelijst met invoervak ​​eenvoudig door VBA-code

---

Wis de inhoud van de keuzelijst met invoervak ​​eenvoudig door VBA-code

De onderstaande twee VBA-codes kunnen u helpen de inhoud van een keuzelijst met invoervak ​​of alle keuzelijsten met invoervak ​​in een actief werkblad te wissen. Ga als volgt te werk.

1. In het werkblad moet u de inhoud van een keuzelijst met invoervak ​​wissen. Druk op anders + F11 toetsen tegelijkertijd openen Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. Kopieer vervolgens onderstaande VBA-code naar het codevenster.

VBA 1: de inhoud van een keuzelijst met invoervak ​​in het werkblad wissen

Sub ClearAComboBox()
ActiveSheet.Shapes.Range(Array("Drop Down 2")).Select
With Selection
    .ListFillRange = ""
End With
End Sub

Opmerking:: In de code is "Drop Down 2" de naam van de keuzelijst waarvan u de inhoud wilt wissen. Wijzig deze in uw eigen.

VBA 2: Wis de inhoud van alle keuzelijsten met invoervak ​​in een actief 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 Sub

3. druk de F5 toets of klik op de knop Uitvoeren om de code uit te voeren.

Vervolgens kunt u zien dat de inhoud is gewist in de opgegeven keuzelijst met invoervak ​​of alle keuzelijsten met invoervak ​​in het actieve werkblad, zoals onderstaand screenshot:

Opmerking:: de VBA-codes kunnen worden toegepast op zowel Combo Box (Form Control) als Combo Box (ActiveX Control).

---

Gerelateerde artikelen:

• Hoe inhoud en opmaak tegelijkertijd in cellen in Excel wissen?
• Hoe de inhoud van het benoemde bereik in Excel te wissen?
• Hoe beperkte waarden in cellen in Excel te wissen?
• Hoe de gespecificeerde celinhoud wissen als de waarde van een andere cel in Excel verandert?
• Hoe de gespecificeerde celinhoud wissen bij openen en afsluiten in Excel-werkmap?