VBA Tabelfilter deactiveren

[lemonstreet25]

Goeroe's,

Middels VBA (Commandbutton) verwijder ik nulwaarden uit een Tabel:

Sub nulwaardeneruitfilteren()
ActiveSheet.ListObjects("Tabel2").Range.AutoFilter Field:=9, Criteria1:="<>0", Operator:=xlFilterValues
End Sub

Nu wil ik dat op het moment dat ik de Worksheet activeer de het (evt.) bestaande filter op tabel 2 wordt verwijderd. Hoe los ik dat op?

Dank alvast voor uw reactie(s).

Luc

 

[edmoor]

Probeer dit eens:

Private Sub Workbook_Open()
    ActiveSheet.ListObjects("Tabel2").ShowAllData
End Sub

 

[lemonstreet25]

Dan geeft hij foutmelding 438: eigenschap of methode wordt niet ondersteund door dit object. Bijgaand maar even een de sheet.Bekijk bijlage Voobeeld filterverwijderenVBA.xlsm

 

[edmoor]

Maak er dan dit van:

Sheets("Rapportage").ListObjects("Tabel2").AutoFilter.ShowAllData

 

[lemonstreet25]

Dank. Dat werkt inderdaad. In dit geval dus als het workbook geopend wordt; moet toch ook kunnen met de "Event" Active nietwaar?

 

[edmoor]

Dat kan met iedere Event actie. Daar zijn er nogal wat van.
"Active" is geen Event maar een status.