Wie kann man Daten in Excel einfach durch Klicken auf den Zelleninhalt filtern?
Normalerweise können Sie in Excel die Filterfunktion verwenden, um Daten nach Bedarf zu filtern. In diesem Artikel werde ich jedoch darüber sprechen, wie Sie Daten einfach durch Klicken auf einen Zellenwert filtern können. Betrachten Sie die folgenden Daten als Beispiel: Wenn ich die Zelle A2 doppelklicke, werden alle entsprechenden Datensätze basierend auf diesem angeklickten Wert sofort gefiltert, wie im folgenden Screenshot gezeigt.
Daten durch Klicken auf einen Zellenwert mit VBA-Code filtern
Daten durch Klicken auf einen Zellenwert mit VBA-Code filtern
Hier werde ich Ihnen einen VBA-Code zur Verfügung stellen, mit dem Sie Daten durch Klicken auf eine Zelle filtern können. Bitte gehen Sie wie folgt vor:
1. Geben Sie Ihren Daten zunächst einen Bereichsnamen. Geben Sie einen Bereichsnamen in das Namensfeld ein und drücken Sie die Eingabetaste, siehe Screenshot:
2. Klicken Sie mit der rechten Maustaste auf das Arbeitsblatt-Tab, über das Sie durch Klicken auf eine Zelle filtern möchten, und wählen Sie dann Code anzeigen aus dem Kontextmenü aus. Kopieren Sie im geöffneten Microsoft Visual Basic for Applications-Fenster den folgenden Code und fügen Sie ihn in das leere Modul ein:
VBA-Code: Daten durch Klicken auf einen Zellenwert filtern:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice
Dim rgTable As Range
Dim rgData As Range
Dim xColumn As Integer
On Error Resume Next
Application.ScreenUpdating = False
Set rgTable = Range("mydata")
With rgTable
Set rgData = .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count)
If Not Application.Intersect(ActiveCell, rgData.Cells) Is Nothing Then
xColumn = ActiveCell.Column - .Column + 1
If ActiveSheet.AutoFilterMode = False Then
.AutoFilter
End If
If ActiveSheet.AutoFilter.Filters(xColumn).On = True Then
.AutoFilter Field:=xColumn
Else
.AutoFilter Field:=xColumn, Criteria1:=ActiveCell.Value
End If
End If
End With
Set rgData = Nothing
Set rgTable = Nothing
Application.ScreenUpdating = True
End Sub
Hinweis: Im obigen Code ist mydata der von Ihnen für Ihren Datenbereich erstellte Bereichsname. Ändern Sie ihn nach Bedarf.
3. Speichern und schließen Sie dann das Codefenster. Jetzt werden, wenn Sie auf eine beliebige Zelle des zu filternden Datenbereichs doppelklicken, die entsprechenden Datensätze wie im folgenden Screenshot gezeigt gefiltert:
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.
Weitere verwandte Artikel:
Wie ändert man den Zellenwert durch Klicken auf die Zelle?
Wie sortiert man Spalten in Excel durch Klicken auf die Kopfzeile?
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