CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

frankbruun Nybegynder

04. marts 2008 - 21:22 Der er 5 kommentarer og
1 løsning

Excel Worksheets åbne/lukke autofiltre

Jeg har brug for at at lukke/åbne autofiltre i alle/nogle af mine workheets. Jeg har lavet en makro, men da antallet af worksheets ændrer sig hele tiden, fejler makroen, hvis der er flere worksheets end makroen er lavet til. Der må være en lettere måde.

Sub IndsætAutofilter()

' IndsætAutofilter Makro
' Makro indspillet
Range("A1").Select
Selection.AutoFilter
ActiveSheet.Next.Select
Range("A1").Select
Selection.AutoFilter
ActiveSheet.Next.Select
Range("A1").Select
Selection.AutoFilter
ActiveSheet.Next.Select
Range("A1").Select
Selection.AutoFilter
ActiveSheet.Next.Select
Range("A1").Select
Selection.AutoFilter
End Sub

Synes godt om

excelent Ekspert

04. marts 2008 - 21:38 #1

for each sh in thisworkbook.sheets
sh.Range("A1").Select
Selection.AutoFilter
next

Synes godt om

frankbruun Nybegynder

05. marts 2008 - 07:21 #2

Beklager, men kørslen fejler med begrundelsen "Metoden Select for klassen Range mislykkedes, og der bliver kun sat filtrer på første ark.

Synes godt om

bak Forsker

05. marts 2008 - 07:43 #3

Sub TurnAutofilterOff()
Dim WS As Worksheet
For Each WS In ActiveWorkbook.Worksheets
If WS.AutoFilterMode Then WS.Range("A1").AutoFilter
Next
End Sub

Sub TurnAutofilterOn()
Dim WS As Worksheet
For Each WS In ActiveWorkbook.Worksheets
If Not WS.AutoFilterMode Then WS.Range("A1").AutoFilter
Next
End Sub

Synes godt om

frankbruun Nybegynder

05. marts 2008 - 12:24 #4

Super, det virker bare.

Synes godt om

bak Forsker

05. marts 2008 - 13:39 #5

ok, så er her et svar :-)

Synes godt om

excelent Ekspert

05. marts 2008 - 15:07 #6

nej der gik vist for meget "gehør" i den, men bak's virker fint

du kan også anvende denne som fjerner filter hvis de er sat eller indsætter hvis de ikke er

Sub Filter()
For Each sh In ThisWorkbook.Sheets
sh.Range("A1").AutoFilter
Next
End Sub

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Excel kurser

Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Automatisk give specifikke point udfra placering Af jernrosen3 i Excel	5	19/12/202410:24	I går 13:14
Delvis udfyld en celle, baseret på en %-sats fra anden celle Af Brian Nielsen i Excel	2	16/12/202415:27	17/12/202422:03
Hjælp til formatering af excel ark. Af Nicholas i Excel	23	13/12/202412:32	18/12/202415:44
To x-akser men kun ét datasæt? Af TheLibrarian i Excel	1	10/12/202409:17	10/12/202410:35
Isolere en dato i tekst/tal Af jernrosen3 i Excel	7	09/12/202408:59	09/12/202410:38

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS