Hallo Milli,
es ist Montag und ich bin wohl noch nicht ganz aufnahmefähig .
Du willst ja, dass der Filter auch wieder entfernt wird und nicht nur, dass die Filterung aufgehoben wird.
Füge die folgenden Zeilen vor dem End Sub ein (und lösche die Zeile aus meiner Antwort oben):
With Worksheets("ArbTab")
.ShowAllData 'Filterung wieder aufheben
.Range(.Cells(1, 1), .Cells(lnglZeile, 23)).AutoFilter 'Filter entfernen
End With
Gruß
M.O.