Excel 2013 VBA Makro Alle Filter löschen

Es scheint, dass ältere Makros nicht funktionieren. Ich habe die richtigen Sicherheitseinstellungen, um VBA-Makros auszuführen, aber wenn ich einige Methoden zum Löschen ALLER Filter auf einem Arbeitsblatt ausprobiert habe, erhalte ich einen Kompilierungsfehler.

Folgendes habe ich versucht:


Sub AutoFilter_Entfernen()
'Dieses Makro entfernt jegliche Filterung, um alle Daten anzuzeigen, aber es entfernt nicht die Filterpfeile
ActiveSheet.ShowAllData
End Sub

Ich habe Schaltflächen auf den Blättern, um alle Filter für Benutzer Benutzerfreundlichkeit zu löschen, da die Blätter eine Menge von Spalten, die Filter auf sie haben.

Mistalis
Bearbeitete Frage 12. Juli 2017 в 3:40
Programmierung
vba excel excel-vba excel-vba-mac
13. Februar 2014 в 5:17
3 Aufrufe

Versuchen Sie dies:

If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData
Kommentare (3)
Lösung

Wenn das Blatt bereits mit einem Filter versehen ist, dann:

Sub Macro1()
    Cells.AutoFilter
End Sub

diesen entfernen.

Kommentare (1)

Versuchen Sie so etwas:

Sub ClearDataFilters()
'Clears filters on the activesheet. Will not clear filters if the sheet is protected.
On Error GoTo Protection
If ActiveWorkbook.ActiveSheet.FilterMode Or _
   ActiveWorkbook.ActiveSheet.AutoFilterMode Then _
   ActiveWorkbook.ActiveSheet.ShowAllData

Exit Sub
Protection:
If Err.Number = 1004 And Err.Description = _ 
    "ShowAllData method of Worksheet class failed" Then
    MsgBox "Unable to Clear Filters. This could be due to protection on the sheet.", _
    vbInformation
End If

End Sub

.FilterMode gibt true zurück, wenn sich das Arbeitsblatt im Filtermodus befindet. (Siehe dies für weitere Informationen.) Siehe dies für weitere Informationen über .AutoFilter.
Und schließlich finden Sie unter this weitere Informationen über die Methode .ShowAllData.

ARich
Bearbeitete Antwort 13. Februar 2014 в 5:39
Kommentare (0)