Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Macro voor filters 'uitklappen'/alle categorien?

76 views
Skip to first unread message

Rene

unread,
Aug 27, 2004, 5:55:49 AM8/27/04
to
Ik heb een bestand waarin gebruikers kolommen kunnen
filteren. Bij het klikken op een macro moeten alle
filters 'uitgeklapt' worden, oftewel gezet worden op 'alle
catergorien'.
Daar ik problemen ondervind met een macro die 'Autofilter'
uitschakeld en weer activeert, ben ik een andere
mogelijkheid. Een macro alle filters 1-voor-1 laten
uitklappen kost bij het uitvoeren te veel tijd.
Weet iemand een andere manier? Ik zou er heel erg mee
geholpen zijn!

Gr.
Rene

Jean-Paul rijnsburger

unread,
Aug 27, 2004, 6:40:58 AM8/27/04
to
Kun je die macro waarmee je alle filters één voor één
uitklapt eens laten zien..
misschien dat we 'm wat sneller krijgen..

Jean-Paul

>.
>

Rene

unread,
Aug 27, 2004, 8:02:07 AM8/27/04
to
Hier de macro die ik nu gebruik om een heleboel filters
boven kolommen uit te klappen.

Sub filtersuitklappen()
'
' filtersuitklappen Macro
' De macro is opgenomen op 27-08-2004 door test
'

'
Application.ScreenUpdating = False
Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=2
Selection.AutoFilter Field:=3
'enz t/m field 65'
Application.ScreenUpdating = True

Door deze lange rij duurt het lang, maar heb geen idee hoe
het korten kan. Iets van Selection.AutoFilter 1 t/m .. ??

>.
>

Ingrid Baplue

unread,
Aug 27, 2004, 8:10:14 AM8/27/04
to
Dit werkt bij mij zonder probleem:

Range("A1").AutoFilter
Range("A1").AutoFilter

--
Ingrid Baplue
Excel MVP
http://users.telenet.be/ingrid/excel/

Dit bericht is geplaatst in een nieuwsgroep. Post je evt antwoord of
vervolgvraag graag in de nieuwsgroep a.u.b.

Rene schreef in 14d701c48c2d$ace6cb80$a301...@phx.gbl

Rene

unread,
Aug 27, 2004, 8:41:13 AM8/27/04
to
Ik begrijp niet goed hoe je dat bedoeld.
Ik weet dat het kan met:

Range("A2:z100").Select
Selection.AutoFilter

(dat is waarschijnlijk ook wat jij bedoeld), maar bij mij
verdwijnen macro's en andere opmaak van m'n blad als
ik 'Autofilter' uitschakel en met bovenstaande code weer
terugzet. Ik wil dus de filters in beeld laten staan en
deze allemaal laten uitklappen. 1-voor-1 duurt erg lang.

Weet iemand raad of kan het mij verduidelijken?

Alvast bedankt!

>.
>

Ingrid Baplue

unread,
Aug 27, 2004, 9:01:51 AM8/27/04
to
Als de tabel start in A1 en wordt omgrensd met een lege rij en kolom dan
volstaat de code die ik gaf (althans in Excel 2003 toch, ik heb het
momenteel niet getest in vroegere versies).

Hoe macro's kunnen verdwijnen met een dergelijke code is mij wel een
raadsel, of bedoel je dat je knopppen op het blad hebt staan waarmee je
macro start?
Normaal zet je niets NAAST een tabel die je gaat filteren, trouwens die
gegevens kunnen altijd onzichtbaar worden dan. Als die gegevens (of knoppen)
boven of onder de tabel staan dan denk ik niet dat je problemen zal hebben.

--
Ingrid Baplue
Excel MVP
http://users.telenet.be/ingrid/excel/

Dit bericht is geplaatst in een nieuwsgroep. Post je evt antwoord of
vervolgvraag graag in de nieuwsgroep a.u.b.

Rene schreef in 092f01c48c33$235bb550$a401...@phx.gbl

0 new messages