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.

Erweitern Sie Ihre Excel-Fähigkeiten mit KI-gestützten Tools. Laden Sie jetzt herunter und erleben Sie eine Effizienz wie nie zuvor!

Weitere verwandte Artikel:

Wie ändert man den Zellenwert durch Klicken auf die Zelle?

Wie sortiert man Spalten in Excel durch Klicken auf die Kopfzeile?