Wie führt man eine sofortige gefilterte Suche durch, während man in einer Zelle in Excel tippt?
Dieser Artikel bietet eine Methode, mit der Sie sofort suchen und filtern können, während Sie in einer Zelle in Excel tippen.
Sofortige gefilterte Suche beim Tippen mit VBA-Code
Sofortige gefilterte Suche beim Tippen mit VBA-Code
Wie im folgenden Screenshot gezeigt, haben Sie eine Namensliste, die Sie sofort durchsuchen und filtern möchten, während Sie in einer bestimmten Zelle tippen. Gehen Sie wie folgt vor, um dies zu erreichen.
1. Erstellen Sie zunächst eine Tabelle mit den Listen-Daten und benennen Sie die Tabelle als „Name“. Wählen Sie die gesamte Liste aus, klicken Sie auf Einfügen > Tabelle.
2. Klicken Sie im sich öffnenden Dialogfeld Tabelle erstellen auf OK. Siehe Screenshot:
3. Klicken Sie auf eine beliebige Zelle der Tabelle, um das Register Design zu aktivieren, und benennen Sie die Tabelle dann im Textfeld Tabellenname in Name um. Siehe Screenshot:
4. Klicken Sie auf Entwickler > Einfügen > Textfeld (ActiveX-Steuerelement), um ein Textfeld oberhalb der Tabellenliste einzufügen, wie im folgenden Screenshot gezeigt:
5. Klicken Sie mit der rechten Maustaste auf das Textfeld und wählen Sie Eigenschaften. Geben Sie im Eigenschaftenfenster eine Zellreferenz in das Verknüpfte Zelle ein.
6. Klicken Sie mit der rechten Maustaste auf das Textfeld und wählen Sie Code anzeigen im Kontextmenü. Ersetzen Sie dann den ursprünglichen Code durch den folgenden VBA-Code im Fenster Microsoft Visual Basic for Applications. Siehe Screenshot:
VBA-Code: Sofortige gefilterte Suche beim Tippen 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 SubHinweis: Im Code ist TextBox1 der Name des eingefügten Textfelds und Name ist der Name der Tabellenliste. Sie können diese Namen bei Bedarf ändern.
7. Drücken Sie die Tasten Alt + Q, um das Fenster Microsoft Visual Basic for Applications zu schließen.
8. Schalten Sie den Entwurfsmodus aus, indem Sie auf Entwickler > Entwurfsmodus klicken.
Ab jetzt wird die Tabellenliste basierend auf dem eingegebenen Wert im Textfeld sofort durchsucht und gefiltert. Siehe Screenshot:
Entfesseln Sie die Magie von Excel mit Kutools AI
- Intelligente Ausführung: Führen Sie Zellenoperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles angetrieben durch einfache Befehle.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe zu optimieren.
- VBA-Codierung: Schreiben und implementieren Sie VBA-Code mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln mit Leichtigkeit.
- Textübersetzung: Überwinden Sie Sprachbarrieren in Ihren Tabellen.
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins