Makro - Datum filtern mit Zellbezug

[Rosié_87]

Hallo meine Lieben,

ich hoffe mir kann jemand von euch helfen...
Ich beschäftige mich grundsätzlich sehr viel mit Excel, nur mit VBA bin ich nicht 100% fit. Ich habe versucht ein kleines Makro aufzuzeichnen, dass in einem Excel Sheet in der Spalte H (Überschrift H6; H7 - H1430 Filterbereich) das aktuell eingetragene Datum in der Spalte F4 erkennen soll und mittels eines Shortcuts den Filterbefehl erneut ausführen soll.
Das Problem an der Sache ist, dass sich in der Spalte H nicht nur ein Datum pro Zelle befindet, sondern bis zu 8 verschiedene. Es soll somit gesucht und gefiltert werden.
Ich hoffe ich habe das so verständlich erklärt und mir kann jemand mit dem VBA Code helfen! :)))
(Datei im Anhang)

Vielen, vielen Dank schon einmal für euren Rat!

Alles Liebe,
Kim

[RPP63]

Hi!
Ich bin mir nicht sicher, ob das bei Excel2007 auch schon geht, aber bei mir (xl2010) filtert folgendes 52 von 295 Datensätzen korrekt:

   

Gruß Ralf

[Rosié_87]

Hi Ralf,

danke für deine schnelle Antwort! :)

Das funktioniert bei Excel 2007 auch schon, nur sollte das mittels Makro und Short-Cut automatisch ausgeführt werden. 
Hast du dafür vielleicht eine Lösung?

Alles Liebe,
Rosié

[RPP63]

Da der 12.4.16 ja nicht vorhanden ist, habe ich dort mal den 31.10.2013 eingetragen.

Sub RPP()
Tabelle1.Range("A6").CurrentRegion.AutoFilter 8, "*" & Format(Range("F4"), "dd.mm.yyyy") & "*"
End Sub

Gruß Ralf

[Rosié_87]

Das war genau was ich gesucht habe! 
Danke, danke, danke lieber Ralf! Leider hat das mit der Suchfunktion bei mir nicht geklappt... Dankeschön! :)