Beliebige Werte in einer Pivot-Tabelle gruppieren
03.08.2016 17:44:20
Dove
ich hoffe ihr könnt mir weiterhelfen.
Folgende Ausgangslage:
Mit dem unten stehenden Code erstelle ich eine Pivot-Tabelle. Die Werte für die Pivot-Tabelle stehen in Spalte X. Diese Werte variieren aber ständig. Ich würde gerne die gewünschten Werte (die gruppiert werden sollen) über eine Input-Box eintragen und diese dann gruppieren.
Ist das möglich?
`Erstellung der Pivot Tabelle
Set rngSource = ActiveSheet.Range("X:X")
With rngSource
Set cacheofpt = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _
SourceData:="'" & rngSource.Parent.Name & "'!" _
& rngSource.Range("A1").Address(True, True, xlR1C1) & ":" _
& .Parent.Cells(.Row + .Rows.Count - 1, .Column).Address(True, True, xlR1C1))
End With
Set pt = cacheofpt.CreatePivotTable(TableDestination:=ActiveSheet.Range("A1"))
With pt
With .PivotFields(rngSource.Range("A1").Text)
.PivotItems("(blank)").Visible = False
.PivotItems("keine Angabe gemacht").Visible = False
.Orientation = xlRowField
.Position = 1
End With
´ Abfrage ob gruppiert werden soll
a = MsgBox("Wollen Sie Elemente gruppieren?!", vbYesNo)
If a = vbNo Then GoTo Zeile1
Wie muss jetzt der Code weitergehen wenn ich gruppieren will?
Danke im Voraus