PivotField.DatabaseSort-Eigenschaft (Excel)

Bei Festlegung auf True ist die manuelle Neupositionierung von Elementen in einem PivotTable-Feld zulässig. Gibt True zurück, wenn das Feld keine manuell positionierten Elemente enthält. Boolescher Wert mit Lese-/Schreibzugriff.

Syntax

Ausdruck. DatabaseSort

Ausdruck Eine Variable, die ein PivotField-Objekt darstellt.

HinwBemerkungeneise

Die DatabaseSort-Eigenschaft gibt False zurück, wenn es sich bei der Datenquelle nicht um eine OLAP-Datenquelle (Online Analytical Processing) handelt.

Diese Eigenschaft gibt True zurück, wenn es sich um eine OLAP-Datenquelle handelt und weder die benutzerdefinierte Anordnung noch die automatische Sortierung auf das Feld angewendet wurde.

Wenn Sie die DatabaseSort-Eigenschaft für eine OLAP-PivotTable auf True festlegen, werden alle benutzerdefinierten Reihenfolgen oder automatischen Sortierungen entfernt, die auf das Feld angewendet werden (mit anderen Worten, die PivotTable wird auf das Standardverhalten zurückgesetzt, wenn die Verbindung hergestellt wurde).

Wird für die DatabaseSort-Eigenschaft der Wert FalseFalse festgelegt, wird die aktuelle Reihenfolge der Elemente zur Sortierreihenfolge, wenn keine automatische Sortierung angewendet wurde.

Das Festlegen der DatabaseSort-Eigenschaft auf True oder False führt zu einer Aktualisierung.

Wenn die DatabaseSort-Eigenschaft für eine Nicht-OLAP-Quelle oder ein OLAP-Datenfeld auf den Wert True festgelegt wird, führt dies zu einem Laufzeitfehler.

Beispiel

In dem folgenden Beispiel wird ermittelt, ob es sich um eine OLAP-Datenquelle handelt und der Benutzer darüber entsprechend benachrichtigt. In diesem Beispiel wird davon ausgegangen, dass auf dem aktiven Arbeitsblatt eine OLAP-PivotTable vorhanden ist.

Sub UseDatabaseSort() 
 
 Dim pvtTable As PivotTable 
 Dim pvtField As PivotField 
 
 Set pvtTable = ActiveSheet.PivotTables(1) 
 Set pvtField = pvtTable.PivotFields("[Product].[Product Family]") 
 
 ' Determine source type for the PivotTable report. 
 If pvtField.DatabaseSort = True Then 
 MsgBox "The source is OLAP; you can manually reorder items." 
 Else 
 MsgBox "The data source might not be OLAP." 
 End If 
 
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.