controle dat autofilter aan staat

[RobertHak]

Wie kan mij helpen aan de volgende oplossing:

In een stukje VBA code wil ik de filters uit zetten

Dit doe ik als volgt

Activesheet.ShowAllData

Dit gaat goed zolang er echt een filter op staat.

Het kan echter ook voorkomen dat er geen felter op staat.
Dan krijg ik een foutmelding

Hoe kan ik met een "if" controleren dat er een filter op staat, wanneer er geen filter op staat kan ik over het sukje "Activesheet.ShowAllData" heen stappen

Alvast bedankt voor de oplossing

Robert Hak

 

[edmoor]

Bijvoorbeeld zo:

On Error Resume Next
ActiveSheet.ShowAllData
On Error GoTo 0

 

[Piet Bom]

of zo..........

Sub Show_ALL()
  If ActiveSheet.AutoFilterMode = True Then
    Cells.AutoFilter
    Cells.AutoFilter
  End If
End Sub

 

[RobertHak]

beide bedankt.

Gr,

Robert