Hi,
ik wil via VBA een pivottable creëren. Dit lukt op zich, alleen het toevoegen van meerdere filters gaat niet zoals gewenst.
Normaal ben ik gewend dat filters van een pivot bovenaan het rapport, onder elkaar weergegeven worden. Echter als ik via onderstaande VBA code deze filters toevoeg worden ze naast elkaar neergezet.
Hoe kan ik dit voorkomen?
Heeft het iets met het creëren van de pivottable te maken? Ik zie hier namelijk wel iets in staan als: AllowMultipleFilters = false
ik wil via VBA een pivottable creëren. Dit lukt op zich, alleen het toevoegen van meerdere filters gaat niet zoals gewenst.
Normaal ben ik gewend dat filters van een pivot bovenaan het rapport, onder elkaar weergegeven worden. Echter als ik via onderstaande VBA code deze filters toevoeg worden ze naast elkaar neergezet.
Hoe kan ik dit voorkomen?
Code:
ActiveSheet.PivotTables("pivottable1").AddFields PageFields:=Array("CMP", "ARTGP", "SUBGP")
Heeft het iets met het creëren van de pivottable te maken? Ik zie hier namelijk wel iets in staan als: AllowMultipleFilters = false
Code:
With ActiveSheet.PivotTables("PivotTable1")
.ColumnGrand = True
.HasAutoFormat = True
.DisplayErrorString = False
.DisplayNullString = True
.EnableDrilldown = True
.ErrorString = ""
.MergeLabels = False
.NullString = ""
.PageFieldOrder = 2
.PageFieldWrapCount = 0
.PreserveFormatting = True
.RowGrand = True
.SaveData = True
.PrintTitles = False
.RepeatItemsOnEachPrintedPage = True
.TotalsAnnotation = False
.CompactRowIndent = 1
.InGridDropZones = False
.DisplayFieldCaptions = True
.DisplayMemberPropertyTooltips = False
.DisplayContextTooltips = True
.ShowDrillIndicators = True
.PrintDrillIndicators = False
.AllowMultipleFilters = False
.SortUsingCustomLists = True
.FieldListSortAscending = False
.ShowValuesRow = False
.CalculatedMembersInFilters = False
.RowAxisLayout xlCompactRow
End With