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

 Hoe past u hetzelfde filter toe op meerdere bladen in Excel?

Het kan voor ons gemakkelijk zijn om de filterfunctie toe te passen om gegevens in een werkblad te filteren, maar soms moet u mogelijk filteren op meerdere werkbladen met een gemeenschappelijke gegevensopmaak met dezelfde filtercriteria. Om ze een voor een te filteren, zal ik veel tijd verspillen, hier kan ik een eenvoudige manier introduceren om het meteen op te lossen.

Pas hetzelfde filter toe op meerdere werkbladen met VBA-code


pijl blauw rechts bel Pas hetzelfde filter toe op meerdere werkbladen met VBA-code

Ik heb bijvoorbeeld vier werkbladen omdat de volgende schermafbeelding moet worden gefilterd met dezelfde criteria als Product = KTE tegelijk.

doc filter meerdere bladen 1

Er is geen directe manier om gegevens in meerdere bladen in Excel te filteren, maar de volgende VBA-code kan u helpen om deze klus te klaren, doe dit als volgt:

1. Houd de ALT + F11 toetsen, dan opent het de Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: pas hetzelfde filter toe op meerdere werkbladen:

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. En druk vervolgens op F5 sleutel om deze code uit te voeren, alle producten van KTE zijn in alle werkbladen tegelijk gefilterd, zie screenshot:

doc filter meerdere bladen 2

Opmerking:: Binnen bovenstaande code, hierin xWs.Range ("A1"). AutoFilter 1, "= KTE" script, A1 en = KTE geeft de kolom en criteria aan waarop u wilt filteren, het nummer 1 is het kolomnummer waarop u hebt gefilterd, u kunt ze naar wens wijzigen. Als u bijvoorbeeld de volgorde groter dan 50 wilt filteren, hoeft u dit script alleen als volgt aan te passen: xWs.Range ("B1"). AutoFilter 2, "> 50".


Filter gegevens op meerdere criteria of andere specifieke voorwaarden, zoals tekstlengte, hoofdlettergevoelig, enz.

Kutools for Excel's Super filter functie is een krachtig hulpprogramma, u kunt deze functie toepassen om de volgende bewerkingen te voltooien:

  • Filter gegevens met meerdere criteria; Filter gegevens op tekstlengte;
  • Filter gegevens op hoofdletters / kleine letters; Filter de datum op jaar / maand / dag / week / kwartaal

doc-super-filter1

Kutools for Excel: met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. Download en probeer nu gratis!


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
officetab onderkant
Heb je vragen? Stel ze hier. (41)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
hoe pas je deze filterformule toe: op een reeks bladen? ik heb een werkmap met gegevens op de eerste 5 bladen en de werkmap heeft 200 bladen. Ik hoef alleen het filter toe te passen op blad 6-200. Sub apply_autofilter_across_worksheets() 'Updateby Extendoffice 20160623 Dim xWs als werkblad bij fout Hervat volgende voor elke xWs In werkbladen xWs.Range("A1").AutoFilter 1, "=KTE" Volgende Einde Sub
Deze opmerking is gemaakt door de moderator op de site
Sub apply_autofilter_across_worksheets() Dim J As integer On Error Hervat volgende For J = 6 to Worksheets(worksheets.count) Thisworkbook.Sheets(J).Range("A1").Autofilter 1, "=KTE" Next End Sub
Deze opmerking is gemaakt door de moderator op de site
Beste, ik wil meer dan één waarde filteren, ik heb deze xWs.Range ("B1") gebruikt. AutoFilter 2, "=223AM", xlOr, "=113IR", xlOr, "=003IR" en het werkte maar toen ik verhoog de gewenste waarden naar >2 er treedt een fout op. deze opdracht gebruik ik xWs.Range("B1").AutoFilter 2, "=223AM", xlOr, "=113IR", xlOr, "=003IR", xlOr, "=019IR", xlOr, "=311IR", xlOr , "=518ZA", xlOr, "=223AM", xlOr, "=592IR" bedankt,
Deze opmerking is gemaakt door de moderator op de site
tijdens het filteren van een enkel woord in meerdere bladen worden geen gefilterde gegevens weergegeven .... alle gegevens zijn verborgen. Los dit alstublieft op.
Deze opmerking is gemaakt door de moderator op de site
Hoi,


Mijn gegevens staan ​​in kolom E en wanneer ik dit filter toepas met Range ("E1") filtert het nog steeds kolom A


Hoe kan ik problemen oplossen?
Bedankt
Deze opmerking is gemaakt door de moderator op de site
U hoeft alleen het kolomnummer in AutoFilter te schrijven, in dit geval: xWs.Range("E1").AutoFilter 5,
Deze opmerking is gemaakt door de moderator op de site
DANK JE!!!!
Deze opmerking is gemaakt door de moderator op de site
VERWIJDER DE KOLOM EEN LOL
Deze opmerking is gemaakt door de moderator op de site
Hoe voer je het uit als het filter op een andere kolom op elk blad staat?
Deze opmerking is gemaakt door de moderator op de site
Hoe kun je het resultaat van de auto-filter gebruiken om het filter voor elk ander blad in te stellen in plaats van =(specifieke naam)
Deze opmerking is gemaakt door de moderator op de site
Kan ik dit gebruiken om draaitabellen in meerdere bladen te filteren als alle draaitabellen uit dezelfde gegevensbron komen en met dezelfde criteria zijn ingesteld?
Deze opmerking is gemaakt door de moderator op de site
Is er een optie om op kleur te filteren?
Deze opmerking is gemaakt door de moderator op de site
Hallo, Mahesh,
Als u gegevens op kleur wilt filteren, kunnen de volgende twee artikelen u misschien helpen! Bekijk ze alstublieft, ik hoop dat het u kan helpen!

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
Deze opmerking is gemaakt door de moderator op de site
Hoi,


Hoe werkt dit als de productkolom op verschillende plaatsen in andere bladen wordt gepresenteerd?


In blad1 is het A1 in blad2 is het in B1 en in blad3 is het weer A1?

Hartelijk dank,
Monika
Deze opmerking is gemaakt door de moderator op de site
Is er een manier om het "=KTE"-gedeelte voor elk blad te wijzigen met een filter dat is gebaseerd op de naam van het blad?
Deze opmerking is gemaakt door de moderator op de site
Bedankt voor de code!! is er een manier om de "=KTE" te wijzigen om een ​​waarde uit een lijst of vervolgkeuzelijst te gebruiken?
Deze opmerking is gemaakt door de moderator op de site
Hallo, wordt het superfilter over de hele werkmap automatisch opnieuw toegepast wanneer er een update van het bestand is?
Deze opmerking is gemaakt door de moderator op de site
Kunnen we de celnaam zoals Product gebruiken in plaats van A1 in: xWs.Range("A1").AutoFilter 1, "=KTE"
Ik heb een andere kolom en sommige namen komen in een andere kolom.
Deze opmerking is gemaakt door de moderator op de site
Ik heb filter in elk blad gebruikt. En ik wil s.no van 1 2 3 serieel in elk blad na filter veranderen.


Laat het me weten als je er vba-code voor hebt
Deze opmerking is gemaakt door de moderator op de site
Hoe de functie "Filteren tussen" gebruiken voor dezelfde meerdere bladen?

(Voorbeeld: tijdbereik)
Deze opmerking is gemaakt door de moderator op de site
hoe gefilterde rijen te elimineren?
Deze opmerking is gemaakt door de moderator op de site
Geachte,

Hoe filteren met meerdere voorwaarden?
Ik wil bijvoorbeeld filteren op volgorde boven de 50, maar alleen KTE-producten.

Dank u bij voorbaat.
Deze opmerking is gemaakt door de moderator op de site
Hallo, Pedjaa,
Als u op meerdere bladen wilt filteren op basis van twee voorwaarden, past u de volgende code toe:
Sub apply_autofilter_across_worksheets()

'Bijwerken door' Extendoffice

Dim xWs als werkblad

On Error Resume Next

Voor elke xWs In werkbladen

Met xWs.Bereik ("A1")

.AutoFilter Veld:=1, Criteria1:="KTE" 'Kolom A is gelijk aan "KTE"

.AutoFilter Veld:=2, Criteria1:=">500" 'Kolom B groter dan 500

Eindigt met

Volgende

End Sub

Probeer het alsjeblieft, ik hoop dat het je kan helpen!
Deze opmerking is gemaakt door de moderator op de site
zelfs als ik A1 vervang door G1, wordt het filter in de A1-kolom geplaatst
Deze opmerking is gemaakt door de moderator op de site
Hallo, Tan,
U vervangt A1 gewoon door G1, en tegelijkertijd moet u kolomnummer 1 wijzigen in kolomnummer 7, zoals onderstaande code:
xWs.Bereik("G1").AutoFilter 7, "=KTE"
Probeer het alsjeblieft, bedankt!
Deze opmerking is gemaakt door de moderator op de site
Hallo,
is het mogelijk om te filteren op kolomnaam in plaats van op nummer (omdat mijn gegevens zich in verschillende kolommen in de verschillende werkbladen bevinden)?
Bedankt Manuela
Deze opmerking is gemaakt door de moderator op de site
Ik wil filteren met dezelfde voorwaarde "KTE", maar als het niet in een blad wordt weergegeven, worden er geen gegevens weergegeven.
Deze opmerking is gemaakt door de moderator op de site
Hoi ,
Ik wil filtercriteria op basis van een celwaarde in plaats van "KTE" is dat mogelijk ???
Deze opmerking is gemaakt door de moderator op de site
Hallo Hemraj, Om de gegevens te filteren op basis van een specifieke celwaarde in plaats van de vaste tekst, past u de onderstaande code toe: Sub apply_autofilter_across_worksheets()
'Bijwerken door' Extendoffice
Dim xWs als werkblad
On Error Resume Next
Voor elke xWs In werkbladen
xWs.Bereik("A1").AutoFilter 1, Blad1.Bereik ("E2")
Volgende
End SubOpmerking:: Wijzig a.u.b. de Sheet1 en E2 binnen dit Blad1.Bereik ("E2") script naar uw eigen blad- en celwaarde. Probeer het alstublieft, ik hoop dat het u kan helpen!
Deze opmerking is gemaakt door de moderator op de site
Hallo Skyyang,
Bedankt voor je waardevolle en fantastische ondersteuning, ik heb geprobeerd dezelfde formules te gebruiken, maar het werkte niet om wat de reden zou kunnen zijn. Het volgende is de code die ik gebruik voor mijn Excel-blad.
Sub apply_autofilter_across_worksheets()
'Bijwerken door' Extendoffice
Dim xWs als werkblad
On Error Resume Next
Voor elke xWs In werkbladen
xWs.Bereik("A1").AutoFilter 1, Blad2.Bereik("C4")
Volgende
End Sub
Er zijn nog geen reacties geplaatst
Laad meer
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL