Wie können Sie prüfen, ob in einem Excel-Arbeitsblatt ein Filter aktiviert ist?
Wenn ein Arbeitsblatt eine große Datenmenge enthält – lässt sich dann prüfen, ob eine Filterung in einer bestimmten Spalte oder im gesamten Arbeitsblatt aktiv ist, ohne jede Spalte manuell einzeln zu überprüfen? In diesem Tutorial zeigen wir Ihnen zwei VBA-Codes, mit denen Sie diese Aufgabe mühelos erledigen können.
Prüfen, ob ein Filter in einer bestimmten Spalte angewendet wurde
Prüfen, ob ein Filter in einem Arbeitsblatt angewendet wurde
Prüfen, ob ein Filter in einer bestimmten Spalte angewendet wurde
Der VBA-Code in diesem Abschnitt hilft Ihnen, zu prüfen, ob eine bestimmte Spalte gefiltert ist.
1. Öffnen Sie das Arbeitsblatt, in dem Sie prüfen möchten, ob in einer bestimmten Spalte ein Filter angewendet wurde.
2. Drücken Sie die Tasten Alt+F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
3. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul, und fügen Sie anschließend den folgenden VBA-Code in das Modul-(Code)-Fenster ein.
VBA-Code: Prüfen, ob eine bestimmte Spalte gefiltert ist
Sub IsFilter()
'Updated by Extendoffice 20221025
Dim xWSht As Worksheet
Dim xFNum As Integer
Dim xBol As Boolean
Dim xAF As AutoFilter
Dim xColumn As Integer
xColumn = 3 'Here the number 3 stands for the third column (column C) in the current worksheet
Set xWSht = Application.ActiveSheet
Set xAF = xWSht.AutoFilter
xBol = False
For xFNum = 1 To xAF.Filters.Count
If xAF.Filters(xFNum).On And xAF.Range(1, xFNum).Column = xColumn Then
xBol = True
End If
Next xFNum
If xBol Then
MsgBox "The specified column is filled"
Else
MsgBox "The specified column is not filled"
End If
End SubHinweis: In dem VBA-Code steht die Zahl 3 in der Zeile „xColumn = 3“ für die dritte Spalte im aktuellen Arbeitsblatt. Wenn Sie prüfen möchten, ob ein Filter in Spalte E angewendet wurde, ändern Sie die Zahl 3 in 5.
4. Drücken Sie die F5-Taste, um den Code auszuführen.
Wenn die angegebene Spalte gefiltert ist, erscheint das folgende Dialogfeld.
Andernfalls erscheint das folgende Dialogfeld.
Entfesseln Sie die Magie von Excel mit KUTOOLS AI
- Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
- VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
- Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
Prüfen, ob ein Filter in einem Arbeitsblatt angewendet wurde
Möchten Sie prüfen, ob in einem Arbeitsblatt ein Filter angewendet wurde, verwenden Sie den VBA-Code in diesem Abschnitt.
1. Öffnen Sie das Arbeitsblatt, in dem Sie prüfen möchten, ob ein Filter aktiviert wurde.
2. Drücken Sie Alt+F11, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.
3. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul, und fügen Sie anschließend den folgenden VBA-Code in das Modul (Code)-Fenster ein.
VBA-Code: Prüfen, ob ein Filter in einem Arbeitsblatt angewendet wurde
Sub IsFilterInWorkSheet()
'Updated by Extendoffice 20221024
Dim xWSht As Worksheet
Dim xFNum As Integer
Dim xBol As Boolean
Dim xAF As AutoFilter
Dim xColumn As Integer
Set xWSht = Application.ActiveSheet
Set xAF = xWSht.AutoFilter
xBol = False
On Error Resume Next
For xFNum = 1 To xAF.Filters.Count
If xAF.Filters(xFNum).On Then
xBol = True
Exit For
End If
Next xFNum
If xBol Then
MsgBox "Filter is applied in the curren worksheet"
Else
MsgBox "Filter does not apply in the current worksheet"
End If
End Sub4. Drücken Sie anschließend die Taste F5, um diesen Code auszuführen. Enthält das Arbeitsblatt eine Filterung, erscheint ein Dialogfeld wie folgt.
Andernfalls erscheint das folgende Dialogfeld.
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 zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins