Pivot per VBA
12.05.2009 07:10:08
Beat
ich möchte eine Pivottabelle per VBA erstellen und habe bisher diesen Code, welcher mit dem Recorder aufgenommen wurde:
Sub Pivot_erstellen()
Columns("A:C").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Tabelle3!C1:C3").CreatePivotTable TableDestination:= _
"'[Daten bearbeiten.xls]Tabelle3'!C5:C256", TableName:="PivotTable3", _
DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTables("PivotTable3").AddFields RowFields:="Parameter", _
ColumnFields:="Identifikation"
With ActiveSheet.PivotTables("PivotTable3").PivotFields("Wert berechnet")
.Orientation = xlDataField
.Caption = "Summe von Wert berechnet"
.
Function = xlSum
End With
End Sub
jetzt möche ich aber. wenn ich erneut auf den Button klicke, die Pivottabelle aktualisiert wird (oder die alte gelöscht und eine neue generiert wird).
Ich bekomme leider aber immer in der folgenden zwei Zeilen einer Fehler:
ActiveSheet.PivotTables("PivotTable3").AddFields RowFields:="Parameter", _
ColumnFields:="Identifikation"
With ActiveSheet.PivotTables("PivotTable3").PivotFields("Wert berechnet")
Ich nehme mal an, dies liegt daran, das "PivotTable3" schon einmal generiert wurde und jetzt evtl. "PivotTable4" an der Reihe wäre...
Wäre froh, wenn mir jemand helfen könnte, denn ich habe wirklich keine Ahnung, wie ich das Problem lösen soll. Vielen Dank für eure Hilfe!
Mit freundlichen Grüssen
Beat