QueryTable.PreserveFormatting-Eigenschaft (Excel)

True wenn eine beliebige, den ersten fünf Datenzeilen gemeinsame Formatierung 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. PreserveFormatting

Ausdruck Eine Variable, die ein QueryTable-Objekt darstellt.

HinwBemerkungeneise

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. Daher wird jedes AutoFormat, das vor PreserveFormatting auf False und vor dem Aktualisieren der Abfragetabelle festgelegt ist, nicht wirksam, und auf die resultierende Abfragetabelle wird keine Formatierung angewendet.

Wenn Sie Daten über die Benutzeroberfläche importieren, werden Daten aus einer Webabfrage oder einer Textabfrage als QueryTable-Objekt importiert, während alle anderen externen Daten als ListObject-Objekt importiert werden.

Wenn Sie Daten mithilfe des Objektmodells importieren, müssen Daten aus einer Webabfrage oder einer Textabfrage als QueryTable importiert werden, während alle anderen externen Daten entweder als ListObject oder als QueryTable importiert werden können.

Verwenden Sie die QueryTable-Eigenschaft des ListObject , um auf die PreserveFormatting-Eigenschaft zuzugreifen.

Beispiel

In diesem Beispiel bleibt die Formatierung des ersten PivotTable-Berichts auf dem ersten Arbeitsblatt erhalten.

Worksheets(1).PivotTables("Pivot1").PreserveFormatting = True

In diesem Beispiel wird veranschaulicht, wie beim Festlegen von PreserveFormatting auf False das AutoFormat auf das xlRangeAutoFormatNone-Format und nicht auf das angegebene xlRangeAutoFormatColor1-Format 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.