Makro für das erneute Anwenden des Filters in Excel 2016

0

Ich besitze einen Mac und arbeite mit Excel 2016. Ich besitze eine Excel-Tabelle, die automatisch nach Datum gefiltert wird.

Bis vor kurzem hatte ich ein Makro gespeichert, mit dem ich Befehlstaste + Wahltaste + n drücken konnte, und das den Filter erneut anwendete, ohne dass ich nach Hause -> Sortieren & Filtern -> Filter erneut anwenden musste .

Aus irgendeinem Grund haben die neuesten Office-Updates das Makro gelöscht, und ich kann es anscheinend nicht mehr finden.

Ich habe versucht , eine Makroaufnahme, aber wenn ich es laufen, heißt es: Runtime Error 1004.

Das Makro selbst lautet wie folgt:

Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Option+Cmd+n
'
    ExecuteExcel4Macro "()"
    With ActiveWorkbook.Worksheets("Leads").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Kann mir jemand sagen, wie ich das zum Laufen bringen kann? Ich aktualisiere das Blatt fast ständig, daher hat es mir das Leben viel leichter gemacht, eine Verknüpfung zum Aktualisieren der Filter zu haben!

Adhi Sethi
quelle

Antworten:

1

Das funktioniert bei mir:

Sub ReapplyFilter()
  ActiveSheet.AutoFilter.ApplyFilter
End Sub

Hoffentlich hilft das.

Spencer Cloud
quelle
1
Wenn ich das versuche, fordere ich die Objektvariable oder die nicht gesetzte Blockvariable auf, Laufzeitfehler!
Tuberose
0

Ich hatte das gleiche Problem. Es stellte sich heraus, dass ich versuchte, den Filter auf ein Blatt anzuwenden, das keinen hatte. Hier ist der Code, der funktioniert hat:

    If Not (ws.AutoFilter Is Nothing) Then
        Debug.Print "Reapplying autofilter for " & ws.Name
        ws.AutoFilter.ApplyFilter
    End If
mzbrand
quelle