Die Anwendung des Filters bringt die Fehlermeldung:

Laufzeitfehler 438

Das object unterstützt diese Eigenschaft oder Methode nicht

Hast du dazu vielleicht auch noch eine Idee?

Ah, ich seh das jetzt erst.

Das funktioniert bei dir natürlich nicht, weil der Datentyp nicht stimmt. xItems hat keine Restrict-Methode, weil es eine VBA.Collection ist.

schau hier