In diesem Beispiel werden alle Daten in Sheet1 eingeblendet. Wenden Sie das Makro auf ein Tabellenblatt an, das eine mit dem Befehl AutoFilter gefilterte Liste enthält.
Worksheets("Sheet1").ShowAllData