Wie filtere ich Daten, indem ich in Excel auf den Zelleninhalt klicke?
Normalerweise können Sie in Excel die Filterfunktion anwenden, um Daten nach Bedarf zu filtern. In diesem Artikel werde ich jedoch darüber sprechen, wie Daten durch einfaches Klicken auf einen Zellenwert gefiltert werden. Nehmen Sie die folgenden Daten als Beispiel: Wenn ich auf die Zelle A2 doppelklicke, werden alle entsprechenden Datensätze, die auf diesem angeklickten Wert basieren, sofort gefiltert, wie im folgenden Screenshot gezeigt.
Filtern Sie Daten, indem Sie auf einen Zellenwert mit VBA-Code klicken
Filtern Sie Daten, indem Sie auf einen Zellenwert mit VBA-Code klicken
Hier werde ich einen VBA-Code bereitstellen, mit dem Sie Daten durch Klicken auf eine Zelle filtern können. Gehen Sie dazu wie folgt vor:
1. Geben Sie Ihren Daten zunächst einen Bereichsnamen, und geben Sie einen Bereichsnamen in das Feld ein Namensfeld, und drücke Enter Schlüssel, siehe Screenshot:
2. Klicken Sie mit der rechten Maustaste auf die Blattregisterkarte, die Sie filtern möchten, indem Sie auf Zelle klicken, und wählen Sie dann Code anzeigen aus dem Kontextmenü und im geöffneten Microsoft Visual Basic für Applikationen Kopieren Sie im Fenster den folgenden Code und fügen Sie ihn in das leere Modul ein:
VBA-Code: Filtern Sie Daten, indem Sie auf den Zellenwert klicken:
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
Note: Im obigen Code, meine Daten Ist der Bereichsname, den Sie für Ihren Datenbereich erstellt haben, ändern Sie ihn bitte nach Ihren Wünschen.
3. Speichern und schließen Sie dann das Codefenster. Wenn Sie jetzt auf eine Zelle des Datenbereichs doppelklicken, die Sie herausfiltern möchten, werden die entsprechenden Datensätze wie folgt gefiltert:
Weitere verwandte Artikel:
Wie ändere ich den Zellenwert durch Klicken auf die Zelle?
Wie sortiere ich Spaltendaten, indem ich in Excel auf die Überschrift klicke?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 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 Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!