Hoe voert u een directe, gefilterde zoekopdracht uit terwijl u typt in een Excel-cel?
In dit artikel wordt een methode beschreven waarmee u direct kunt zoeken en filteren terwijl u in een cel typt in Excel.
Directe, gefilterde zoekopdracht tijdens het typen met VBA-code
Directe, gefilterde zoekopdracht tijdens het typen met VBA-code
Zoals in onderstaande schermafbeelding te zien is, heeft u een Namenlijst waarin u direct wilt zoeken en filteren terwijl u typt in een specifieke cel. Volg de onderstaande stappen om dit te realiseren.
1. Maak eerst een tabel met de lijstgegevens en geef deze de naam „Name”. Selecteer de volledige lijst en klik op Invoegen > Tabel.
2. In het venster Tabel maken dat verschijnt, klikt u op OK. Zie schermafbeelding:
3. Klik op een willekeurige cel in de tabel om het tabblad Ontwerpen te activeren en wijzig vervolgens de tabelnaam in Name in het tekstvak Tabelnaam. Zie schermafbeelding:
4. Klik op Ontwikkelaar > Invoegen > Tekstvak (ActiveX-besturingselement) om een tekstvak boven de tabel in te voegen, zoals in de onderstaande schermafbeelding:
5. Klik met de rechtermuisknop op het tekstvak en selecteer Eigenschappen. Typ in het venster Eigenschappen een celverwijzing in het vak GekoppeldeCel.
6. Klik met de rechtermuisknop op het tekstvak en selecteer Code weergeven in het contextmenu. Vervang de oorspronkelijke code in het venster Microsoft Visual Basic for Applications door de onderstaande VBA-code. Zie schermafbeelding:
VBA-code: Directe, gefilterde zoekopdracht tijdens het typen in Excel
Private Sub TextBox1_Change()
'Update by Extendoffice 2018/08/22
Dim xStr, xName As String
Dim xWS As Worksheet
Dim xRg As Range
On Error GoTo Err01
Application.ScreenUpdating = False
xName = "Name"
xStr = TextBox1.Text
Set xWS = ActiveSheet
Set xRg = xWS.ListObjects(xName).Range
If xStr <> "" Then
xRg.AutoFilter field:=1, Criteria1:="*" & xStr & "*", Operator:=xlFilterValues
Else
xRg.AutoFilter field:=1, Operator:=xlFilterValues
End If
Err01:
Application.ScreenUpdating = True
End SubOpmerking: In de code is TextBox1 de naam van het ingevoegde tekstvak en is Name de naam van de tabel. U kunt deze aanpassen aan uw behoeften.
7. Druk op Alt+Q om het venster Microsoft Visual Basic for Applications te sluiten.
8. Schakel Ontwerpmodus uit door op Ontwikkelaar > Ontwerpmodus te klikken.
Vanaf nu wordt de tabel direct doorzocht en gefilterd op basis van de waarde die u in het tekstvak invoert. Zie de schermafbeelding:
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.
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