Unable to set the default property
12.03.2007 10:11:00
Stefan
Ich habe folgendes Problem. Ich habe ein Tabellenblatt, in dem ich Werte einer Pivottabelle eines anderen Tabellenblatts veraendern moechte. Diese Werte befinden sich im Page Data Field der Pivottabelle und sind Halbjahr und Quartal.
Dazu habe ich folgendes Makro programmiert:
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Quarter").Select
ActiveSheet.PivotTables("PivotTable3").PivotFields("Dec Date Quarter").CurrentPage = _
CStr(Worksheets("single").Range("F4")) _
ActiveSheet.PivotTables("PivotTable3").PivotFields("Term").CurrentPage = _
CStr(Worksheets("single").Range("F5")) _
Sheets("single").Select
End Sub
Das Aendern der Felder klappt soweit auch ganz gut, nur wenn ich das Halbjahr auf 1 setze, dann bekomme ich einen Run time error: 1004 - "Unable to set the _Default property of the PivotItem class". Wenn dagegen das Halbjahr auf 2 oder (All) gesetzt wird, gibt es keine Probleme.
Kann mir jemand weiterhelfen?