Filter via vba uitzetten

[Robert Smidt]

Beste Helpmij'ers,

Ik heb eerder via dit medium een code gekregen die perfect werkt om een filter automatisch te sluiten vanuit een tabel. Nu is echter mijn wens een dergelijke code te maken maar dan niet voor een tabel, maar voor een standaard excel spreadsheet waar ik filters in heb staan. Mijn vraag is wat ik i.p.v. (.listObjects(1)) moet gebruiken?

Sub hsv()
With Sheets("Rit- & uren adm.")
  If .ListObjects(1).AutoFilter.FilterMode Then
     If .ListObjects(1).AutoFilter.Filters.Count > 0 Then .ListObjects(1).AutoFilter.ShowAllData
   End If
 End With
End Sub

Een antwoord zie ik met veel belangstelling tegemoet.

Robert

 

[edmoor]

Afhankelijk van je naamgevingen, maar het zou dit kunnen zijn: ListObjects("Table1")

 

[Robert Smidt]

Bedankt voor jouw snelle reactie, helaas werkt het niet. Bij regel:

  If .ListObjects("Table1").AutoFilter.FilterMode Then

krijg ik een gele geaccentueerde regel zonder tekst wat er fout is.

 

[gast0660]

Bedoel je voor een gewoon tabblad (geen tabel) of zie ik iets over het hoofd?

With Sheets("Blad1")
If .AutoFilterMode Then .AutoFilterMode = False
End With

 

[edmoor]

Ik kan natuurlijk niet zien of je listobject inderdaad Table1 heet. Dat weet je zelf.
Druk eens op F8 als die regel geel is.
Wat zegt hij dan?

 

[Robert Smidt]

Er staat: Fout 9 tijdens de uitvoering: Het subscript valt buiten het bereik

 

[edmoor]

Dan heet die table dus niet Table1. Hoe hij wel heet zou je zelf moeten weten.

 

[Robert Smidt]

Bekijk bijlage Filtertest.xlsx.xlsm

Ik hoop dat je hier iets mee kunt.

 

[edmoor]

Het is dus precies wat dotchie zei in #4.

 

[VenA]

Zelfs de if kan eruit

Blad1.AutoFilterMode = 0

 

[gast0660]

@ Robert, Mijn code werkt, verander Blad1 in Uitgaven.
@Edmoor, oef, ik dacht het is omdat ik een st... Belg ben

 

[edmoor]

Dat zou ik niet durven zeggen Philiep

 

[Robert Smidt]

De code verwijderd bij mij het filter, de bedoeling is niet dat het filter wordt verwijderd, maar dat het filter uitgezet wordt, of doe ik iets fout?

 

[Robert Smidt]

Ik heb het vast fout in de code staan. Blad1 heb ik ook getest d.m.v. Uitgaven.

Sub hsp()
With Sheets("Uitgaven")
If .AutoFilterMode Then Blad1.ShowAllData = False
End With
End Sub

 

[Robert Smidt]

Beste mensen,

Met jullie antwoorden hebben jullie mij op het goede spoor gebracht. Het antwoord lag eigenlijk voor de hand. Door de verwijzing naar de tabel eruit te halen (zie onderstaande code) werkt de formule nu ook voor filters die niet in een tabel staan.

Sub hsv()
With Sheets("Uitgaven")
  If .AutoFilter.FilterMode Then
     If .AutoFilter.Filters.Count > 0 Then .AutoFilter.ShowAllData
   End If
 End With
End Sub

Heel erg bedankt voor jullie hulp.

Robert

 

[VenA]

iets minder complex

Sub VenA()
  If Sheets("Uitgaven").AutoFilterMode Then Sheets("Uitgaven").AutoFilter.ShowAllData
End Sub