PDA

Vollständige Version anzeigen : Pivottabelle richtig positionieren


Rudi G
24.03.2009, 14:10
Hi zusammen,
wie kann ich meiner Pivottabelle sagen das die Auswertung in einer variablen Tabellengröße immer in Spalte G soll und dann nach der 4. Leerzelle beginnen soll?

Mein bisheriger Text:
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Altbestand!" & Sheets("Altbestand").Range("A1").CurrentRegion.Address(ReferenceStyle:=xlR1C1)).CreatePivotTable TableDestination:= _
"[354Maxliste_VertragSummen.xls]Altbestand!R5865C7", TableName:="PivotTable1", DefaultVersion:=xlPivotTableVersion10
ActiveWindow.SmallScroll Down:=12
With ActiveSheet.PivotTables("PivotTable1").PivotFields("NL_ID")
.Orientation = xlRowField
.Position = 1


Hat jemand eine Idee hierzu?

IngGi
24.03.2009, 14:38
Hallo Rudi,

so?
ActiveWorkbook.PivotCaches.Add( _
SourceType:=xlDatabase, _
SourceData:="Altbestand!" & Sheets("Altbestand").Range("A1") _
_
.CurrentRegion.Address(ReferenceStyle:=xlR1C1)) _
_
.CreatePivotTable _
TableDestination:="[354Maxliste_VertragSummen.xls]Altbestand!" & _
Workbooks("354Maxliste_VertragSummen.xls").Sheets("Altbestand") _
.Cells(Rows.Count, 7).End(xlUp).Offset(5, 0).Address(ReferenceStyle:=xlR1C1), _
TableName:="PivotTable1", DefaultVersion:=xlPivotTableVersion10
Gruß Ingolf

Rudi G
25.03.2009, 06:48
Hi Ingolf,

es hat geklappt, echt super

vielen Dank.


:)
:)

:)