Makro zur Filterung von Tabellenspalten Alle Auswählen

Bisher mein erstes Makro, welches ich nutze. Da war ich über die Aufzeichnen Funktion froh.
Hier der Code:
Sub Standardsortierung_NRC()
'
' Standardsortierung_NRC Makro
'

'
ActiveWorkbook.Worksheets("NRC Planung").ListObjects("Tabelle5").Sort. _
SortFields.Clear
ActiveSheet.ShowAllData
ActiveWorkbook.Worksheets("NRC Planung").ListObjects("Tabelle5").Sort. _
SortFields.Clear
ActiveWorkbook.Worksheets("NRC Planung").ListObjects("Tabelle5").Sort. _
SortFields.Add2 Key:=Range("Tabelle5[Jahr]"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("NRC Planung").ListObjects("Tabelle5").Sort. _
SortFields.Add2 Key:=Range("Tabelle5[Monat]"), SortOn:=xlSortOnValues, _
Order:=xlAscending, CustomOrder:= _
"Jan,Feb,Mrz,Apr,Mai,Jun,Jul,Aug,Sep,Okt,Nov,Dez", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("NRC Planung").ListObjects("Tabelle5").Sort. _
SortFields.Add2 Key:=Range("Tabelle5[Reihenfolge Monat]"), SortOn:= _
xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("NRC Planung").ListObjects("Tabelle5").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveSheet.ListObjects("Tabelle5").Range.AutoFilter Field:=4, Criteria1:= _
"="
End Sub

Da es mittlerweile ziemlich speziell wird und ich nicht weiß, ob es dann noch in einem öffentlichen Forum Sinn macht, können wir gerne per Mail kommunizieren. Habe auch gesehen, dass du auf eine andere Frage von mir schon eine ziemlich gute Lösung zur Verfügung gestellt hast.

Viele Grüße.

Perfekt. Code funktioniert. Den Punkt ".Range.AutoFilter Field:=4, Criteria1:="="" habe ich noch wie von dir Empfohlen angepasst.
Vielen Dank für deine Hilfe.

Sub AutofilterFilternAus(Optional ByVal W As Worksheet = Nothing)
'Entfernt alle Filter aus dem Autofilter
If W Is Nothing Then Set W = ActiveSheet
If W.FilterMode Then W.ShowAllData
End Sub

Hallo Andreas,
ich wusste nicht genau, wie ich es beschreiben soll.
Der Hinweis war aber so ziemlich das, was ich gesucht habe bzw. ist für meine Zwecke ausreichend.
Vielen Dank

Das ist ein aufgezeichnetes Makro... das kannst Du vergessen.
Wenn Du ein Makro postest, dann bitte den Code als Text, ein Screenshot nutzt gar nix.
Mach ein Kopie vom dem Blatt und benenne es als "Temp" um, dann brauchst Du den Blattnamen auch nicht verschleiern wenn Dir das peinlich ist. .-)
Andreas.