Excel 2013 PowerPivot - Tagesdatum aktualisieren

Hallo,

folgendes Problem:
Ich greife auf eine Tabelle mit Zeitstempeln zu. Aus einer gebastelten PivotTabelle erstelle ich ein Diagramm das die Anzahl der Buchungen an einem Tag abbildet. Hierzu setze ich einen Filter auf das Feld mit dem Zeitstempel der Buchung. Wie kann ich den Filter konfigurieren, so dass er sich jeden Tag auf das aktuelle Tagesdatum aktualisiert? Derzeit steht das Datum statisch drin.

Vielen Dank im Voraus.


Eric

Sub UpdatePivotTable()
    Dim ws As Worksheet, pt As PivotTable
    Set ws = Worksheets(1)
    Set pt = ws.PivotTables("PivotTable1")  
    pt.PivotFields("Datum").ClearAllFilters  
    pt.PivotFields("Datum").PivotFilters.Add Type:=xlDateToday  
    pt.Update
End Sub

 Set ws = Worksheets(1)

Sub UpdatePivotTable()
    Dim ws As Worksheet, pt As PivotTable
    Set ws = Worksheets(1)
    Set pt = ws.PivotTables("PivotTable1")  
    pt.PivotFields("Datum").ClearAllFilters  
    pt.PivotFields("Datum").PivotFilters.Add Type:=xlDateToday  
    pt.Update
End Sub

Private Sub Workbook_Open()
    UpdatePivotTable
End Sub