Hoe een standaardwaarde automatisch weer te geven terwijl u een waarde in een keuzelijst verwijdert in Excel?
In Excel kunt u met behulp van Gegevensvalidatie een keuzelijst maken waar gebruikers waarden uit kunnen selecteren. U wilt echter mogelijk dat er automatisch een standaardwaarde, zoals “-Selecteer-,” verschijnt wanneer het geselecteerde item uit de cel met de keuzelijst wordt verwijderd. Dit artikel biedt een stap-voor-stap oplossing met behulp van VBA-code.
Standaardwaarde automatisch weergeven bij het verwijderen van een waarde in een keuzelijst
Standaardwaarde automatisch weergeven bij het verwijderen van een waarde in een keuzelijst
1. Klik met de rechtermuisknop op het tabblad van het werkblad dat de keuzelijst bevat en selecteer vervolgens Bekijk Code uit het contextmenu.
2. Kopieer en plak de onderstaande code in de scripteditor in het venster Microsoft Visual Basic for Applications dat verschijnt.
VBA: Standaardwaarde weergeven bij het verwijderen van een geselecteerd item in een keuzelijst
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xObjV As Validation
On Error Resume Next
Set xObjV = Target.Validation
If xObjV.Type = xlValidateList Then
If IsEmpty(Target.Value) Then Target.Value = "-Select-"
End If
End Sub3. Sla de code op. Nadat u een geselecteerd item hebt verwijderd, verschijnt de standaardwaarde in de cel met de keuzelijst totdat een nieuw item wordt geselecteerd.
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