|
Guten Morgen zusammen,
da ich über die Suche nichts gefunden habe, schreibe ich nun meinen ersten eigenen Beitrag.
Ich möchte über VBA eine Pivot-Tabelle sortieren lassen, die mehr als eine Zeilenbeschriftung hat. D. h. alle Zeilen sollen nach einer bestimmten Spalte auf- und absteigend sortiert werden können. Bei nur einer Zeilenbeschriftung funktioniert das einwandfrei. Bei mehreren Zeilenbeschroftungen funktioniert es nicht. Ist das was ich vorhabe eventuell gar nicht möglich, oder mache ich etwas falsch?
Mein Code sieht so aus:
Sub aufg_xy_ab()
ActiveSheet.Unprotect Password:=""
ActiveSheet.PivotTables("aufgelaufen").PivotFields("1. Zeilenbeschriftung").AutoSort _
xlDescending, "beliebige Wertespalte"
ActiveSheet.Protect Password:="", _
AllowUsingPivotTables:=True
Das habe ich sowohl mit der 1. als auch der letzten Zeilenbeschriftung ausprobiert.
Ich würde mich freuen, wenn jemand eine Idee hat und bedanke mich im Voraus!
|