Pivot-Tabelle per VBA formatieren

[Martin Schimanski]

Hallo zusammen,

ich habe ein VBA-Skript geschrieben, dass eine Liste in
eine Pivot-Tabelle auswertet.
Wo kann ich in der VBA-Anweisung

ActiveSheet.PivotTableWizard SourceType:=xlDatabase,
SourceData:= _
"Tabelle1!R1C1:R7C3", TableDestination:="",
TableName:="Pivot-Tabelle1"
ActiveSheet.PivotTables("Pivot-Tabelle1").AddFields
RowFields:= _
"Anlagengruppe", ColumnFields:="Projektbezeichnung"
ActiveSheet.PivotTables("Pivot-Tabelle1").PivotFields
("2004").Orientation = _
xlDataField

Befehle zum Formatieren einbinden?
Ich brauche z.B. eine Leerzeile zwischen jedem Wert und
anschließend soll die gesamte Tabelle dick umrahmt sein.
Fuer Eure Hilfe Besten Dank.
Gruss,
Martin Schimanski

[Thomas Ramel]

Grüezi Martin

Martin Schimanski schrieb:

Hmmm, was soll in der Leerzeile den 'angestellt' werden?
Eine solche enzufügen ist in der Pivot-Tabelle nicht möglich. Wenn diese
zur Errechnung von Zwischenresultaten dienen soll, könnte dir vielleicht
die Option 'Teilergebnisse' der Feldoptionen hilfreich sein.

Für den Rahmen kannst Du dir den Code per Makro-Recorder 'besorgen', in dem
du diesen startess und dann die Tabelle markierst und den Rahemen
entsprechen setzt.
Dies kann dann (nach leichter Aufbereitung) wie folt aussehen:

Sub Makro1()
ActiveSheet.PivotTables("PivotTable1").PivotSelect "", xlDataAndLabel
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
End Sub

--
Mit freundlichen Grüssen

Thomas Ramel
- MVP für Microsoft-Excel -

[Win 2000Pro SP-3 / xl2000 SP-3]

[Martin Schimanski]

Hallo Thomas,

>-----Originalnachricht-----

>.
Besten Dank fuer die erneut schnelle Antwort.
Also die Pivot-Tabelle ist Basis fuer einen Standard-
Bericht und kann weniger Zeilen enthalten als dieser
Bericht. Mit einer Formatierung haette ich beide Tabellen
gleich aufgebaut und die Zellen aufeinander referenziert,
bzw. direkt den Bericht erstellt. So werde ich die Pivot
nach den Datensaetzen abfragen und die gefuellten Felder
an die Berichtsliste uebergeben.

Fuer das Formatierungsmakro besten Dank, hat sich jetzt
vielleicht erledigt.
Gruss,
Martin.