Pivot Top 20
26.01.2006 10:52:51
Peter
Ich erstelle eine Pivot-Tabelle mit unten aufgeführtem Code. Gibt es die möglichkeit, diese Pivot-Tabelle auf 20 Einträge zu begrenzen? Quasi eine Top20 in dieser Tabelle anzeigen zu lassen? Andere Daten sind für mich nämlich unrelevant...
Code:
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"2nd Level!R1C2:R65536C2").CreatePivotTable TableDestination:=Range("J1"), TableName:= _
"Pivot_wer"
ActiveSheet.PivotTables("Pivot_wer").SmallGrid = False
ActiveSheet.PivotTables("Pivot_wer").AddFields RowFields:="PatName"
ActiveSheet.PivotTables("Pivot_wer").PivotFields("PatName").Orientation = _
xlDataField
Range("K3").Select
Selection.Sort key1:="R3C11", order1:=xlDescending, Type:=xlSortValues, _
ordercustom:=1, Orientation:=xlTopToBottom
Danke & Gruß,
Peter M.