Liebe Excel Kenner,
Ich habe eine Frage.
Was soll man machen, damit in Pivot Tabelle bei Objekt PivotItem die Methode "Delete" fehlerfrei funktioniert?
Bei mir macht sie nämlich die Fehler 1004.
Was soll man machen, damit in Pivot Tabelle bei Objekt PivotItems die Methode "Add" funktioniert?
Bei mir meldet sie zwar kein Fehler, macht aber nichts.
Die Tabelle bei mir ist kompliziert. Es gibt Gruppierungen, die dadurch sich manifestieren, dass in Tabelle neue Pivot Felder erscheinen, die diese Gruppen als Items haben. Außer Gruppennamen können diese Pivot Felder auch ganz reguläre Items beinhalten. Dadurch kann ein Item der Mitglied von mehr als ein Pivot Feld sein. Und ebendiese Items gilt es zu entfernen. Außer dem muss man noch nicht existierende Items, deren Namen definiert sind, als ItemChilds zu Bestimmten Gruppen hinzufügen.
Nichts davon klappt bei mir.
Für Entfernen von Items benutze ich Folgende:
Dim oPivotField As PivotField
Dim oPivotItem As PivotItem
Dim oPivotItemActual As PivotItem
For nI = 0 To UBound(saDeletedItems)
For Each oPivotItem In oPivotField.PivotItems
If oPivotItem.Name = CStr(saDeletedItems(nI)) Then
Set oPivotItemActual = oPivotItem
Exit For
End If
Next
oPivotItemActual.Delete
oPivotTableWork.PivotCache.Refresh
Next
Für Hinzufügen benutze ich Folgende:
Dim oPivotChildItems As PivotItems
Set oPivotChildItems = oPivotItem.ChildItems
For nI = 0 To UBound(saValuesToAdd)
oPivotChildItems.Add Name:=CStr(saValuesToAdd(nI))
Next |