Hoe voer je een direct gefilterde zoekopdracht uit terwijl je typt in een cel in Excel?
Dit artikel biedt een methode om direct te zoeken en filteren terwijl je typt in een cel in Excel.
Direct gefilterde zoekopdracht terwijl je typt met VBA-code
Direct gefilterde zoekopdracht terwijl je typt met VBA-code
Zoals in onderstaande schermafbeelding te zien is, heb je een Namenlijst waarin je direct wilt zoeken en filteren terwijl je typt in een specifieke cel. Volg de volgende stappen om dit voor elkaar te krijgen.
1. Maak eerst een tabel aan met de lijstgegevens en noem de tabel “Name”. Selecteer de hele lijst, klik op Invoegen > Tabel.
2. Klik in het venster Tabel maken dat wordt geopend, op OK. Zie schermafbeelding:
3. Klik op een willekeurige cel van de tabel om het tabblad Ontwerp te activeren, en wijzig vervolgens de naam van de tabel in Name in het tekstvak Tabelnaam. Zie schermafbeelding:
4. Klik op Ontwikkelaar > Invoegen > Tekstvak (ActiveX Control) om een tekstvak boven de tabel te plaatsen zoals in onderstaande schermafbeelding te zien is:
5. Klik met de rechtermuisknop op het tekstvak en klik op Eigenschappen. Typ in het venster Eigenschappen een celverwijzing in het vak GekoppeldeCel.
6. Klik met de rechtermuisknop op het tekstvak en selecteer Weergave Code in het contextmenu. Vervang vervolgens de originele code door de onderstaande VBA-code in het Microsoft Visual Basic for Applications-venster. Zie schermafbeelding:
VBA-code: Direct gefilterde zoekopdracht terwijl je typt 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, Name is de naam van de tabel. Je kunt deze namen naar behoefte wijzigen.
7. Druk op de toetsen Alt + Q om het Microsoft Visual Basic for Applications-venster te sluiten.
8. Schakel de Ontwerpmodus uit door te klikken op Ontwikkelaar > Ontwerpmodus.
Vanaf nu zal de tabel worden doorzocht en gefilterd op basis van de ingevoerde waarde in het tekstvak. Zie schermafbeelding:
Ontdek de Magie van Excel met Kutools AI
- Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
- Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
- VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules gemakkelijk.
- Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.
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