Hallo,
ich habe eine Pivottabelle welche einen Zeitverlauf in Kalenderwochen darstellt.
Nun will ich über Makro die KW automatisch steuern.
D.h. in einem separaten Tabellenblatt hab ich in A1 Start-KW und in B1 die Ende-KW drinstehen.
Mit folgendem Makro kann ich in die Pivot automatisch einen Beschriftungsfilter einfügen.
Sheets("Pivot_RB_gesamt").PivotTables("PivotTable_KW_gesamt").PivotFields("KW").ClearAllFilters
Sheets("Pivot_RB_gesamt").PivotTables("PivotTable_KW_gesamt").PivotFields("KW").PivotFilters.Add _
Type:=xlCaptionIsBetween, Value1:=CStr(Sheets("Datum").Range("a1")), Value2:=CStr(Sheets("Datum").Range("b1"))
Das funktioniert auch wunderbar in anderen Dateien, nur hier ist es so, dass er was falsches anzeigt.
Z.B. anstatt KW 1 - 10 anzuzeigen zeigt er mir nur 1 und 10 an.
Erst wenn ich dann manuell in den Beschriftungsfilter gehen (die Periode steht sogar schon drin, wie ich sie haben will) und bestätige dann funktioniert es.
Kann mir jemand weiterhelfen?