Delete-macro aanpassen voor filter

[tomswaelen]

Dag iedereen,

Ik heb onderstaande macro (gewoon opgenomen) die een filter reset en een aantal cellen leegmaakt. Alleen valt deze macro in fout op ShowAllData als er geen filter is ingesteld.

Hoe pas ik de macro aan dat hij daarop geen fout geeft?

Sub Delete()

    ActiveSheet.ShowAllData
    Range("T2:CZ30000").Select
    Selection.ClearContents
    Range("T2").Select
End Sub

 

[edmoor]

Zoiets:

Sub Delete()
    On Error Resume Next
    ActiveSheet.ShowAllData
    On Error GoTo 0
    Range("T2:CZ30000").ClearContents
End Sub

 

[cow18]

 set ws= activesheet
If ws.FilterMode = True Then
        ws.ShowAllData
    End If

 

[tomswaelen]

Bedankt, allebei! Het werkt