Note: The other languages of the website are Google-translated. Back to English

 Wie wende ich denselben Filter auf mehrere Blätter in Excel an?

Es mag für uns einfach sein, die Filterfunktion zum Filtern von Daten in einem Arbeitsblatt anzuwenden, aber manchmal müssen Sie möglicherweise über mehrere Arbeitsblätter filtern, die eine gemeinsame Datenformatierung mit denselben Filterkriterien aufweisen. Das Filtern nacheinander wird viel Zeit verschwenden. Hier kann ich einen einfachen Weg vorstellen, um es sofort zu lösen.

Wenden Sie denselben Filter auf mehrere Arbeitsblätter mit VBA-Code an


Pfeil blau rechte Blase Wenden Sie denselben Filter auf mehrere Arbeitsblätter mit VBA-Code an

Zum Beispiel habe ich vier Arbeitsblätter, da der folgende Screenshot nach denselben Kriterien gefiltert werden muss wie das Produkt = KTE auf einmal.

doc Filter mehrere Blätter 1

Es gibt keine direkte Möglichkeit, Daten in mehreren Arbeitsblättern in Excel zu filtern. Der folgende VBA-Code kann Ihnen jedoch dabei helfen, diesen Auftrag abzuschließen. Gehen Sie dazu wie folgt vor:

1. Halten Sie die Taste gedrückt ALT + F11 Tasten, dann öffnet es die Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.

VBA-Code: Wenden Sie denselben Filter auf mehrere Arbeitsblätter an:

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. Und dann drücken F5 Schlüssel zum Ausführen dieses Codes, alle Produkte von KTE wurden in allen Arbeitsblättern gleichzeitig gefiltert, siehe Screenshot:

doc Filter mehrere Blätter 2

Hinweis: Innerhalb des obigen Codes in diesem xWs.Range ("A1"). AutoFilter 1, "= KTE" Skript, A1 und = KTE Gibt die Spalte und die Kriterien an, nach denen Sie filtern möchten. Die Nummer 1 ist die Spaltennummer, nach der Sie gefiltert haben. Sie können sie nach Bedarf ändern. Wenn Sie beispielsweise die Reihenfolge größer als 50 filtern möchten, müssen Sie dieses Skript nur folgendermaßen ändern: xWs.Range ("B1"). AutoFilter 2, "> 50".


Filtern Sie Daten nach mehreren Kriterien oder anderen spezifischen Bedingungen, z. B. nach Textlänge, Groß- und Kleinschreibung usw.

Kutools for Excel Superfilter Die Funktion ist ein leistungsstarkes Dienstprogramm. Sie können diese Funktion anwenden, um die folgenden Vorgänge abzuschließen:

  • Daten nach mehreren Kriterien filtern; Daten nach Textlänge filtern;
  • Daten nach Groß- / Kleinschreibung filtern; Filtern Sie das Datum nach Jahr / Monat / Tag / Woche / Quartal

doc-super-filter1

Kutools for Excel: Mit mehr als 300 praktischen Excel-Add-Ins können Sie es innerhalb von 30 Tagen ohne Einschränkung testen. Jetzt herunterladen und kostenlos testen!


Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
kte tab 201905

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!
officetab unten
Kommentare (41)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wie wenden Sie diese Filterformel an: auf eine Reihe von Blättern? Ich habe eine Arbeitsmappe, die Daten auf den ersten 5 Blättern enthält, und die Arbeitsmappe hat 200 Blätter. Ich muss nur den Filter auf Blatt 6-200 anwenden. Sub apply_autofilter_across_worksheets() 'Updateby Extendoffice 20160623 Dim xWs As Worksheet On Error Resume Next For every xWs In Worksheets xWs.Range("A1").AutoFilter 1, "=KTE" Next End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Sub apply_autofilter_across_worksheets() Dim J As integer On Error Resume Next For J = 6 to Worksheets(worksheets.count) Thisworkbook.Sheets(J).Range("A1").Autofilter 1, "=KTE" Next End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Liebe, ich möchte mehr als einen Wert filtern, ich habe diesen xWs.Range("B1").AutoFilter 2, "=223AM", xlOr, "=113IR", xlOr, "=003IR" verwendet und es hat funktioniert, aber als ich Erhöhen Sie die gewünschten Werte auf >2, tritt ein Fehler auf. diesen Befehl verwende ich xWs.Range("B1").AutoFilter 2, "=223AM", xlOr, "=113IR", xlOr, "=003IR", xlOr, "=019IR", xlOr, "=311IR", xlOr , "=518ZA", xlOr, "=223AM", xlOr, "=592IR" danke,
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Beim Filtern einzelner Wörter in mehreren Blättern werden keine gefilterten Daten angezeigt. Alle Daten sind ausgeblendet. Bitte lösen Sie dies.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo,


Meine Daten befinden sich in Spalte E, und wenn ich diesen Filter mit Range ("E1") anwende, filtert er immer noch Spalte A


Wie kann ich Fehler beheben?
Vielen Dank
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Sie müssen nur die Spaltennummer in AutoFilter schreiben, in diesem Fall: xWs.Range("E1").AutoFilter 5,
Dieser Kommentar wurde vom Moderator auf der Website minimiert
DANKE!!!!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
LÖSCHEN SIE DIE SPALTE A LOL
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wie wird ausgeführt, wenn sich der Filter auf jedem Blatt in einer anderen Spalte befindet?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wie können Sie das Ergebnis des Autofilters verwenden, um den Filter für jedes andere Blatt festzulegen, anstatt = (bestimmter Name) zu verwenden?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Kann ich dies verwenden, um Pivot-Tabellen in mehreren Blättern zu filtern, wenn alle Pivot-Tabellen aus derselben Datenquelle stammen und mit denselben Kriterien eingerichtet wurden?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Gibt es eine Möglichkeit, nach Farben zu filtern?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Mahesh,
Wenn Sie Daten nach Farbe filtern möchten, können Ihnen die folgenden zwei Artikel helfen! Bitte sehen Sie sie sich an, ich hoffe, es kann Ihnen helfen!

https://www.extendoffice.com/documents/excel/912-excel-filter-by-cell-color.html
https://www.extendoffice.com/documents/excel/3383-excel-filter-by-multiple-colors.html
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo,


Wie funktioniert dies, wenn die Produktspalte an anderen Stellen in anderen Blättern angezeigt wird?


In Blatt1 ist es A1, in Blatt2 ist es in B1 und in Blatt3 ist es wieder A1?

Vielen Dank,
Monika
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Gibt es eine Möglichkeit, den Teil „=KTE“ für jedes Blatt mit einem Enthalten-Filter zu ändern, der auf dem Namen des Blatts basiert?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke für den Code!! Gibt es eine Möglichkeit, "=KTE" zu ändern, um einen Wert aus einer Liste oder Dropdown-Liste zu verwenden?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
HI, wird der Superfilter für die gesamte Arbeitsmappe automatisch erneut angewendet, wenn die Datei aktualisiert wird?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Können wir Zellennamen wie Product anstelle von A1 verwenden in: xWs.Range("A1").AutoFilter 1, "=KTE"
Ich habe eine andere Spalte und einige Namen kommen in einer anderen Spalte vor.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe Filter in jedem Blatt verwendet. Und ich will ab Nr. 1 2 3 seriell in jedem Sheet nach Filter ändern.


Bitte teilen Sie mir mit, ob Sie VBA-Code dafür haben
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wie verwende ich die Funktion „Filtern zwischen“ für dieselben Blätter?

(Beispiel: Zeitbereich)
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wie eliminiere ich gefilterte Zeilen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Sehr geehrter,

Wie filtert man mit mehreren Bedingungen?
Zum Beispiel möchte ich in der Reihenfolge über 50 filtern, aber nur KTE-Produkte.

Vielen Dank im Voraus.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Pejaa,
Wenden Sie bitte den folgenden Code an, um mehrere Blätter basierend auf zwei Bedingungen zu filtern:
Unter apply_autofilter_across_worksheets()

'Updateby Extendoffice

Dim xWs als Arbeitsblatt

On Error Resume Next

Für jedes xWs in Arbeitsblättern

Mit xWs.Range("A1")

.AutoFilter Field:=1, Criteria1:="KTE" 'Spalte A gleich "KTE"

.AutoFilter Field:=2, Criteria1:=">500" 'Spalte B größer als 500

Ende mit

Weiter

End Sub

Bitte versuchen Sie es, ich hoffe, es kann Ihnen helfen!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Selbst wenn ich A1 durch G1 ersetze, wird der Filter auf die A1-Spalte gesetzt
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Tan,
Sie ersetzen einfach A1 durch G1, gleichzeitig sollten Sie die Spalte Nummer 1 in Spalte Nummer 7 ändern, wie im folgenden Code:
xWs.Range("G1").AutoFilter 7, "=KTE"
Bitte versuchen, danke!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo,
Ist es möglich, basierend auf dem Spaltennamen und nicht auf der Nummer zu filtern (da sich meine Daten in verschiedenen Spalten in den verschiedenen Arbeitsblättern befinden)?
Danke Manuela
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich möchte mit derselben Bedingung "KTE" filtern, aber wenn sie nicht in einem Blatt angezeigt wird, werden keine Daten angezeigt.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo,
Ich möchte Filterkriterien basierend auf einem Zellenwert anstelle von "KTE", ist das möglich ???
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, Hemraj, um die Daten basierend auf einem bestimmten Zellenwert anstelle des festen Texts zu filtern, wenden Sie bitte den folgenden Code an: Unter apply_autofilter_across_worksheets()
'Updateby Extendoffice
Dim xWs als Arbeitsblatt
On Error Resume Next
Für jedes xWs in Arbeitsblättern
xWs.Range("A1").AutoFilter 1, Sheet1.Range("E2")
Weiter
End SubHinweis: Bitte ändern Sie die Sheet1 und E2 Mit diesem Sheet1.Range("E2") Skript zu Ihrem eigenen Blatt- und Zellenwert hinzufügen. Bitte versuchen Sie es, ich hoffe, es kann Ihnen helfen!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Skyyang,
Vielen Dank für Ihre wertvolle und fabelhafte Unterstützung, ich habe versucht, die gleichen Formeln zu verwenden, aber es hat nicht funktioniert, was der Grund sein könnte. Das Folgende ist der Code, den ich für meine Excel-Tabelle verwende.
Unter apply_autofilter_across_worksheets()
'Updateby Extendoffice
Dim xWs als Arbeitsblatt
On Error Resume Next
Für jedes xWs in Arbeitsblättern
xWs.Range("A1").AutoFilter 1, Sheet2.Range("C4")
Weiter
End Sub
Es sind noch keine Kommentare vorhanden
Mehr laden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL