ich habe Schwierigkeiten damit, die Filter in meiner Datentabelle zurückzusetzen. Ich möchte bevor ich die Daten aus der jeweiligen Tabelle lösche, den Filter jeder Spalte wieder so einstellen, dass alle Daten angezeigt werden. Ich habe mehrere Tabellenblätter, die jeweils eine Datentabelle (Tabelle 1-Tabelle 4) enthalten.
Kann mir jemand sagen, wo in meinem Code das Problem liegt? Ich kriege die Fehlermeldung, dass die ShowAllData-Methode nicht ausgeführt werden konnte.
Sub Clear_Worksheets()
Dim w As Variant
Dim t As Integer
Dim tables As Variant
tables = Array("Tabelle1", "Tabelle2", "Tabelle3", "Tabelle4")
t = 0
For Each w In Worksheets
If w.Name Like "72*" Then
Worksheets(w.Name).Select
'Enable filter (in Tabelle 1-16) to show all data
ActiveSheet.ShowAllData
Worksheets(w.Name).Range("A3:Q500").ClearContents 'Clear table
t = t + 1
End If
Next
End Sub