Mit diesem Tipp können Ihre Berichtsbenutzer mithilfe von Optionsfeldern zwischen mehreren Pivot-Tabellenformaten wählen und die Pivot-Tabelle dann automatisch aktualisieren! (Dies ist praktisch, wenn Benutzer Einstellungen für das Berichtsformat haben, ohne in der Symbolleiste der Pivot-Tabelle jedes Mal eine auswählen zu müssen.)

Erster Schritt:

Platzieren Sie ein Optionsfeld (oder mehrere) an einer beliebigen Stelle in Ihrem Arbeitsblatt für Pivot-Tabellenberichte und benennen Sie diese wie „Berichtsformat 1“, „Berichtsformat 2“ usw.

Gehen Sie dazu zu „Ansicht> Symbolleisten> Formulare“ und wählen Sie „Optionsfeld“

aus der Toolbox und ziehen Sie es auf Ihren Bericht.

Schritt zwei:

Erstellen Sie das Makro unter „Extras> Makro> Makros“, geben Sie einen Namen wie „Format2“ ein und klicken Sie dann auf „Erstellen“

Geben Sie den folgenden VB-Code ein oder schneiden Sie ihn aus und fügen Sie ihn ein. (Hinweis: Stellen Sie sicher, dass Ihre Pivot-Tabelle den Standardnamen „PivotTable1“ trägt, indem Sie mit der rechten Maustaste auf eine beliebige Stelle in der Pivot-Tabelle klicken, „Tabellenoptionen“ auswählen und das Feld „Name“ anzeigen. Andernfalls müssen Sie ersetzen Der Name der Pivot-Tabelle im folgenden Code mit dem Namen Ihrer Pivot-Tabelle):

Sub Format2 ()

‚Format2 Makro ActiveSheet.PivotTables („PivotTable1“). PivotSelect „“, xlDataAndLabel, True ActiveSheet.PivotTables („PivotTable1“). Format xlReport6 ​​Cells.Select With Selection .HorizontalAlignment = xlGeneral .VerticalAlignment = xlGeneral .VerticalAlignment = xlGeneral 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext End With With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AtInd = ReadingOrder = xlContext End With Cells.Select Selection.Columns.Autofit Range („A1“). Select End Sub Sie können verschiedene Formatmakros mit demselben Code erstellen. Die einzige Zeile, die Sie ändern müssen, ist das „Format xlReport6“. Es stehen ca. 15 Berichtsformate zur Auswahl. Ändern Sie einfach den „xlReport (Nummer)“ von 1 auf 15.

Der obige Code passt die Spalten automatisch an und zentriert den Text, nachdem der Bericht formatiert wurde.

Schritt drei:

Weisen Sie das Makro dem Optionsfeld zu, indem Sie mit der rechten Maustaste auf das Optionsfeld klicken, „Makro zuweisen“ auswählen und einfach das soeben erstellte Makro auswählen. Tun Sie dies für jedes Ihrer Optionsfelder. Das war’s! Wenn ein Benutzer auf ein Optionsfeld klickt, wird die Pivot-Tabelle basierend auf der im Makro verwendeten Formatoption automatisch auf das Format aktualisiert. Testen Sie mehrere Berichtsstile, um festzustellen, welche Ihren Anforderungen entsprechen, und weisen Sie sie dann Ihren Makros und Optionsfeldern zu.

Ihre Benutzer werden dankbar und sehr beeindruckt sein!

Viel Glück!

~ CJ