Mit diesem Tipp können Ihre Berichtsbenutzer mithilfe von Optionsschaltflächen zwischen mehreren Pivot-Tabellenformaten wählen und die Pivot-Tabelle dann automatisch aktualisieren! (Ist praktisch, wenn Benutzer Berichtsformateinstellungen haben, ohne zur Pivot-Tabellen-Symbolleiste gehen und jedes Mal eine auswählen zu müssen)
Schritt eins:
Platzieren Sie eine Optionsschaltfläche (oder mehrere) an einer beliebigen Stelle auf Ihrem Pivot-Tabellen-Berichtsarbeitsblatt und benennen Sie sie wie "Berichtsformat 1", "Berichtsformat 2" usw.
Gehen Sie dazu zu "Ansicht > Symbolleisten > Formulare", wählen Sie "Optionsschaltfläche" aus der Toolbox und ziehen Sie sie auf Ihren Bericht.
Schritt zwei:
Erstellen Sie das Makro, indem Sie zu "Extras > Makro > Makros" gehen, einen Namen wie "Format2" eingeben und dann "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" hat, indem Sie mit der rechten Maustaste auf eine beliebige Stelle in der Pivot-Tabelle klicken, "Tabellenoptionen" auswählen und das Feld "Name" ansehen. Andernfalls müssen Sie ersetzen den Namen der Pivot-Tabelle im folgenden Code mit dem Namen Ihrer Pivot-Tabelle):
Unterformat2()
' Format2 Makro
ActiveSheet.PivotTables("PivotTable1").PivotSelect "", xlDataAndLabel, True
ActiveSheet.PivotTables("PivotTable1").Format xlReport6
Zellen.Auswählen
Mit Auswahl
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Ausrichtung = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
Ende mit
Mit Auswahl
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Ausrichtung = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
Ende mit
Zellen.Auswählen
Auswahl.Spalten.Autofit
Bereich("A1").Wählen
End Sub
~~~~~~~~~~~~~~~~~~~~~~~~~
Sie können mit demselben Code verschiedene Formatmakros erstellen und die einzige Zeile, die Sie ändern müssen, ist das "Format xlReport6". Es stehen etwa 15 Berichtsformate zur Auswahl. Ändern Sie einfach "xlReport(number)" von 1 auf 15.
Der obige Code passt auch automatisch die Spalten 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, wählen Sie "Makro zuweisen" und wählen Sie einfach das Makro aus, das Sie gerade erstellt haben. Tun Sie dies für jede Ihrer Optionsschaltflächen
Das ist es! Wenn ein Benutzer jetzt auf eine Optionsschaltfläche klickt, wird die Pivot-Tabelle automatisch auf das Format basierend auf der im Makro verwendeten Formatoption aktualisiert. Testen Sie mehrere Berichtsstile, um zu sehen, welche Ihren Anforderungen entsprechen, und weisen Sie sie dann Ihren Makros und Optionsfeldern zu.
Ihre Benutzer werden dankbar und beeindruckt sein!
Viel Glück!
~CJ