VBA - Fertig formatiertes Pivot

[fonds]

Hallo,

ich möchte eine leere Pivottabelle erstellen, bei der die Spaltenüberschrift

Code:

.Interior.ColorIndex = 35
.Font.Bold = True
.Font.Size = 12
.Font.ColorIndex = 2

und das Zahlenformat im Datenbereich

Code:

.Font.Size = 10
.NumberFormat = "#,##0_ ;[Red]-#,##0 "

schon automatisch eingestellt ist. Die Pivottabelle soll zunächst aber keine Pivotfelder enthalten. Diese sollten später nach Wahl aus der Feldliste hineingezogen werden können.

Ich habe bis jetzt folgenden Code:

Code:

Sub Pivot()
Dim ptCache As PivotCache
Dim ptTable As PivotTable
Dim i As Integer

With ActiveSheet
For Each ptTable In .PivotTables
ptTable.TableRange2.Delete
Next ptTable
End With

Set ptCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=ActiveSheet.UsedRange.Address)

Set ptTable = ptCache.CreatePivotTable(TableDestination:="", TableName:="PivotTable1")

ActiveWorkbook.Colors(35) = RGB(0, 102, 179)
ActiveWorkbook.Colors(36) = RGB(199, 214, 238)
ActiveWorkbook.Colors(40) = RGB(235, 239, 249)

Cells.Replace What:="Summe von", Replacement:=" ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

End Sub

Wie kann ich diese Eigenschaften unterbringen, ohne Pivotfelder vorher auszuwählen?