Thema Datum  Von Nutzer Rating
Antwort
Rot Pivot Tabelle
 04.04.2019 13:44:18 Igor Itkin
NotSolved

Ansicht des Beitrags:
Von:
Igor Itkin		 Datum:
04.04.2019 13:44:18		 Views:
702		 Rating:
     
Antwort:
  Ja
Thema:
Pivot Tabelle
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Pivot Tabelle
 04.04.2019 13:44:18 Igor Itkin
NotSolved