Hallo zusammen,
ich bin neu hier und freue mich schon auf eure Hilfe.
Leider habe ich bei VBA ein Problem.
Bei der Gruppierung von Elementen in einer Pivot-Tabelle via VBA Code kann es in meinen Daten vorkommen, dass die Auswahl nur ein Element enthält und dies kann bei Pivots nicht gruppiert werden (endet mit einer Fehlermeldung).
Behelfsweise habe ich diese Möglichkeit folgendermaßen ausgeschlossen:
[...]
On Error GoTo FailureGroupMasterSupplierCompetitor
ActiveSheet.PivotTables(wsPivotTableName).PivotSelect _
"'Master Supplier'[Beispiel1,Beispiel2,Beispiel3]", xlDataAndLabel, True
Selection.Group
ActiveSheet.PivotTables(wsPivotTableName).PivotFields("Master Supplier2"). _
PivotItems("Gruppe1").Caption = "IHR"
FailureGroupMasterSupplierCompetitor:
On Error GoTo FailureGroupMasterSupplierTRW
ActiveSheet.PivotTables(wsPivotTableName).PivotSelect _
"'Master Supplier'[Beispiel4,Beispiel5,Beispiel6]", xlDataAndLabel, True
Selection.Group
With ActiveSheet.PivotTables(wsPivotTableName).PivotFields("Master Supplier2").PivotItems("Gruppe2")
.Caption = "WIR"
.Position = 1
End With
FailureGroupMasterSupplierTRW:
[...]
Das funktioniert an und für sich ganz gut, allerdings möchte ich eigentlich lieber zunächst auslesen, wie viele Elemente selektiert wurden und bei Anzahl größer 1 gruppieren und ansonsten nicht.
Im oben genannten Beispiel kann es beispielsweise vorkommen, dass die Gruppe 2 nur "Beispiel1" enthält und dieses eine Element für sich genommen nicht gruppiert werden kann.
Außerdem habe ich noch das Problem, dass ich eigentlich gleich bei Gruppenerstelleung die Gruppe benennen möchte und nicht erst die "Gruppe 1" generiert wird und ich diese dann umbenenne.
Ganz schön viele Probleme, aber ich hoffe jemand von euch kann mir helfen.
Wenn ich mich nicht an irgendwelche Regeln hier gehalten habe, bitte ich dies zu entschuldigen (ein Hinweis wäre hilfreich, dass es nicht wieder vorkommt).
Vielen herzlichen Dank euch allen für eure Hilfe.
Grüße
Markus