Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
TRUE , wenn die Formatierung beibehalten wird, wenn der Bericht durch Vorgänge wie Pivotieren, Sortieren oder Ändern von Seitenfeldelementen aktualisiert oder neu berechnet wird.
Für Abfragetabellen ist diese Eigenschaft True , wenn eine Formatierung, die für die ersten fünf Datenzeilen typisch ist, auf neue Datenzeilen in der Abfragetabelle angewendet wird. Nicht verwendete Zellen werden nicht formatiert.
Die Eigenschaft ist False, wenn das zuletzt auf die Abfragetabelle angewendete AutoFormat auf neue Datenzeilen angewendet wird. Der Standardwert ist True.
Syntax
Ausdruck verwendet werden. PreserveFormatting
Ausdruck Eine Variable, die ein PivotTable-Objekt darstellt.
Hinweise
Für Datenbankabfragetabellen ist die Standardformatierungseinstellung die xlSimple-Konstante.
Die neue AutoFormat-Art wird von der Abfragetabelle beim Aktualisieren der Tabelle übernommen. AutoFormat wird auf None zurückgesetzt, sobald PreserveFormattingPreserveFormatting auf FalseFalse festgelegt wird. Infolgedessen wird jedes AutoFormat, das vor dem Festlegen von PreserveFormatting auf False und vor dem Aktualisieren der Abfragetabelle festgelegt wurde, nicht wirksam, und auf die resultierende Abfragetabelle wird keine Formatierung angewendet.
Beispiel
In diesem Beispiel bleibt die Formatierung des ersten PivotTable-Berichts auf dem ersten Arbeitsblatt erhalten.
Worksheets(1).PivotTables("Pivot1").PreserveFormatting = True
Dieses Beispiel zeigt, wie das Festlegen von PreserveFormatting auf "False " dazu führt, dass das AutoFormat auf den XlRangeAutoFormat-WertxlRangeAutoFormatNone anstelle des angegebenen xlRangeAutoFormatColor1-Formats festgelegt wird.
With Workbooks(1).Worksheets(1).QueryTables(1)
.Range.AutoFormat = xlRangeAutoFormatColor1
.PreserveFormatting = False
.Refresh
End With
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.