Hallo Experten,
hoffe es kann mir jemand weiterhelfen. Ich habe folgendes Problem und zwar erstelle ich eine Pivottabelle mittels folgenden Codes:
Set rng = Sheets(Name).UsedRange
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
rng, TableDestination:="", TableName:=Name
ActiveSheet.Name = Pivot
With ActiveSheet.PivotTables(Name)
.ColumnGrand = False
.RowGrand = False
.InGridDropZones = True
.RowAxisLayout xlTabularRow
.PivotFields("Kennung").Orientation = xlPageField
.PivotFields("Buchungskreis").Orientation = xlRowField
.PivotFields("Konto").Orientation = xlRowField
.PivotFields("Konto").Subtotals = Array( _
False, False, False, False, False, False, False, False, False, False, False, False)
.PivotFields("Bezeichnung").Orientation = xlRowField
.PivotFields("Bezeichnung").Subtotals = Array( _
False, False, False, False, False, False, False, False, False, False, False, False)
.PivotFields("Betrag").Orientation = xlDataField
.PivotFields("Sum of Betrag").NumberFormat = "#,##0.00"
.PivotFields("Gegenbuchung").Orientation = xlDataField
.PivotFields("Sum of Gegenbuchung").NumberFormat = "#,##0.00"
.ColumnGrand = True
.RowGrand = True
End With
Die Pivottabelle wird ohne Probleme erstellt, allerdings werden die beiden Datenfelder "Sum of Betrag" und "Sum of Gegenbuchung" pro Zeile untereinander angezeigt. Wie krieg ich die beiden Datenfelder nebeneinander pro Zeile angezeigt?
Vielen Dank für eure Hilfe.