Robert Smidt
Gebruiker
- Lid geworden
- 26 mei 2009
- Berichten
- 901
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?
Een antwoord zie ik met veel belangstelling tegemoet.
Robert
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?
Code:
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