VBA Pivortabelle nach Datum filtern

[CHASiN1994]

Guten Tag zusammen,

ich habe ein Problem bzgl. VBA und Pivot:

Ich habe eine Automatisierung per VBA gebaut, die sofort eine Proformarechnung an den Kunden rausschickt mit speziellen zu einem Tag gehörenden Daten.
Nun möchte ich, dass diie Automatisierung in VBA das direkt für einen definierten Tag durchführt. 
In meiner Excel in Tabelle4 in ZelleD1 ist ein Datum vorgegeben. Nun möchte ich, dass die PivotTabelle gefiltert wird nach dem in D1 angegebenen Datum.

Kann mir da einer Helfen?

Ich glaube es wird schwierig wegen dem deutschen Datum. Bei einer anderen Automatisierung im Tabellenformat ging das recht einfach. bei der Pivot komme ich allerdings nicht hinterher.

MfG
Tobias Brimmers

[Case]

Hallo,  

probiere es mal so:  

Code:

Option Explicit
Public Sub Main()
    With Tabelle4.PivotTables("PivotTable5")
        .RefreshTable
        .PivotFields("Datum").ClearAllFilters
        .PivotFields("Datum").CurrentPage = CDate([D1])
    End With
End Sub

[CHASiN1994]

easy. Vielen Vielen Dank das hat mich echt meine Nerven gekostet