AutoFilter setzen und ändern

[Wanderer]

Hallo zusammen,
ich möchte gerne per Basicmaker meine Filterkriterien von Autofilter in der ersten Zeile ausgeben und dort ändern.
Ausgeben kann ich die Kriterien mit:

MsgBox pm.ActiveSheet.AutoFilter.Filters.Item(4).criteria1

Was mir nicht gelingt, sind die Auswahlkriterien per Basicmaker.

pm.ActiveSheet.AutoFilter.Filters.Item(4).criteria1 = "meineDaten"

funktioniert nicht.
Gibt es dafür eine Lösung?

Grüße Wanderer