Hallo zusammen,

ich möchte gern per Makro ein Pivot Table auf ein bestimmtes Datum filtern, dazu habe ich folgendes bereits im Forum gefunden.

Problem dabei ist, dass scheitert und das Datum nicht findet, wie kann man das lösen?

Ausgangssituation ist ein Datumswert aus einer Tabelle, auf dem im Pivot Table der Filter gesetzt werden soll.


With Sheet_PivotLagerbestand.PivotTables("PivotTable_Aktueller_Bestand").PivotFields("Datum")
.ClearAllFilters
For i = 1 To .PivotItems.Count
If .PivotItems(i) = CDate(Format(Sheet_LagerbestandEinfach.Cells(17, 6), "MM/d/YYYY")) Then
.PivotItems(i).Visible = True
Else
.PivotItems(i).Visible = False
End If
Next
End With