Avatar billede 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
Avatar billede excelent Ekspert
04. marts 2008 - 21:38 #1
for each sh in thisworkbook.sheets
sh.Range("A1").Select
Selection.AutoFilter
next
Avatar billede 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.
Avatar billede 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
Avatar billede frankbruun Nybegynder
05. marts 2008 - 12:24 #4
Super, det virker bare.
Avatar billede bak Forsker
05. marts 2008 - 13:39 #5
ok, så er her et svar :-)
Avatar billede 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
Avatar billede 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.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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



Seneste spørgsmål Seneste aktivitet
I dag 06:10 Excel åbner fil i kæmpe format Af Aske i Excel
I går 22:00 Datafordeler Af Lsk i PHP
I går 12:37 Summere beløb pr. dato Af TTA i Excel
31/1022:44 Tilslutte chassic fans Af viking69 i PC
31/1020:28 LED lysstofrør Af ErikHg i Fri debat