Wie wendet man denselben Filter auf mehrere Arbeitsblätter in Excel an?
Es ist meist einfach, die Filterfunktion zum Filtern von Daten in einem Arbeitsblatt zu verwenden. Manchmal müssen Sie jedoch mehrere Arbeitsblätter durchsuchen, die eine gemeinsame Datenformatierung und denselben Filterbedingungen aufweisen. Diese einzeln zu filtern kostet viel Zeit. Hier stelle ich Ihnen eine einfache Methode vor, um dies auf einmal zu erledigen.
Denselben Filter mithilfe von VBA-Code auf mehrere Arbeitsblätter anwenden
Denselben Filter mithilfe von VBA-Code auf mehrere Arbeitsblätter anwenden
Beispielsweise möchte ich vier Arbeitsblätter (siehe folgender Screenshot) gleichzeitig nach dem Kriterium „Produkt = KTE“ filtern.
In Excel lässt sich nicht direkt in mehreren Arbeitsblättern gleichzeitig filtern. Mit dem folgenden VBA-Code meistern Sie diese Aufgabe dennoch mühelos – so geht’s:
1. Halten Sie die ALT + F11-Tasten gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modul-Fenster ein.
VBA-Code: Denselben Filter auf mehrere Arbeitsblätter anwenden:
Sub apply_autofilter_across_worksheets()
'Updateby Extendoffice
Dim xWs As Worksheet
On Error Resume Next
For Each xWs In Worksheets
xWs.Range("A1").AutoFilter 1, "=KTE"
Next
End Sub
3. Drücken Sie anschließend die F5-Taste, um diesen Code auszuführen. Alle Produkte vom Typ KTE wurden sofort in allen Arbeitsblättern gefiltert (siehe Screenshot):
Hinweis: Im obigen Code gibt die Zeile xWs.Range("A1").AutoFilter 1, „=KTE"mit A1und =KTEdie Spalte sowie das Filterkriterium an. Die Zahl „1“ steht dabei für die Nummer der Spalte, nach der gefiltert werden soll. Passen Sie diese Werte einfach Ihren Anforderungen an. Möchten Sie beispielsweise Bestellungen filtern, die größer als 50 sind, ändern Sie die Zeile wie folgt:xWs.Range("B1").AutoFilter 2, „>50".
Daten nach mehreren Kriterien oder anderen spezifischen Bedingungen filtern – beispielsweise nach Textlänge oder unter Berücksichtigung der Groß- und Kleinschreibung. Die Kutools für Excel-Funktion Super Filterist ein leistungsstarkes Hilfsprogramm, mit dem Sie folgende Aufgaben erledigen können:
Kutools für Excel: Mit mehr als 300 praktischen Excel-Add-Ins – kostenlos und uneingeschränkt 30 Tage lang testen.Jetzt herunterladen und kostenlos testen! |
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