Office: Filtern mit Makro

Hallo zusammen
Habe ein Problem: Ich möchte mit einem Makro Daten aus einer Tabelle Filtern um diese zu kopieren und in eine andere Tabelle kopieren. Der Filter sollte immer den Wert der Zelle D3 sein. Bei meinem Versuch nimmt es aber nur den Wert bei der Aufzeichnung und nicht den aktuellen Wert. Ist es möglich dies zu programmieren oder gibt es eine andere Lösung?
Hier mein Makro:
Sub AA()
'
' AA Makro
'

'
Range("D3").Select
Selection.Copy
Sheets("Offene Zahlungen Arbeiten").Select
ActiveSheet.ListObjects("Tabelle7").Range.AutoFilter Field:=1, Criteria1:= _
"22 937 105" (Hier sollte stehen "aktueller Wert D3")
End Sub
Gruss Jürg

 

Füge stattdessen ein

Cells(3, "D")

Sollte funktionieren ohne es jetzt nachgebaut zu haben. Kann sein, dass du noch ActiveSheet. davor einfügen musst.

 

Hallo Chaoswolf
Danke für die Antwort, habe aber noch diese Lösung im Internet gefunden:
Tabelle4.Range("A1").AutoFilter 1, Tabelle4.Range("G1").Value
diese funktioniert einwandfrei bis jetzt..