Entfernen Sie alle aktiven Filter, die aus dem Blatt in excel

Ich arbeite mit Tabellen in excel und ich möchte Sie entfernen Sie alle filter, die eingestellt wurde in jedem meiner 52 Spalten, entfernen Fett, Farben usw.(zurück zur normalen Formatierung).

Irgendwie scheint mein code nicht, irgendeine Idee, wo das Problem sein könnte?

'Clears filters on the activesheet. Will not clear filters if the sheet is protected.
On Error Resume Next
If ActiveWorkbook.ActiveSheet.FilterMode Or ActiveWorkbook.ActiveSheet.AutoFilterMode Then
   ActiveWorkbook.ActiveSheet.ShowAllData
End If

 'in case the sheet is protected
ActiveWorkbook.Sheets("List").Cells.EntireColumn.Hidden = False
InformationsquelleAutor skatun | 2016-04-07
  1. 0

    Können Sie versuchen, mit diesem einen statt:

    ActiveSheet.AutoFilter.ShowAllData

    Kann es funktionieren.

    • Das ist, was ich in meinem code, der nicht aus irgendeinem Grund arbeiten.
    • Nicht genau. Ihr code ist ein wenig anders.
    • es funktioniert, außer, dass es nicht entfernen-Sortierung: ActiveWorkbook.ActiveSheet.AutoFilter.ShowAllData
    InformationsquelleAutor Vityata
  2. 0
    If ActiveSheet.AutoFilterMode Then ActiveSheet.Cells.AutoFilter
If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData
    • If ActiveWorkbook.ActiveSheet.AutoFilterMode Then ActiveWorkbook.ActiveSheet.Cells.AutoFilter End If If ActiveWorkbook.ActiveSheet.AutoFilterMode Then ActiveWorkbook.ActiveSheet.ShowAllData End If Es löst keine von denen, wenn Sätze..
    InformationsquelleAutor Will
  3. 0

    Versuchen Sie es bitte mit der unten 

    Cells.AutoFilter
    InformationsquelleAutor Karthick Gunasekaran
  4. 0

    Diese es gelöst:

    ActiveWorkbook.Worksheets("List").ListObjects("FilterParts").Sort.SortFields.Clear
ActiveSheet.ShowAllData

    Aber wie kann ich die Sortierung dieser Spalte 

    Range("FilterParts[[#Headers],[POS NUMBER]]").Select

    so, dass es zeigt alles außer Leerzeichen?

    InformationsquelleAutor skatun
Schreibe einen Kommentar