pivot über macro läuft nicht!?
01.07.2008 14:33:00
lisa
Ich habe über den Macrorecorder die Erstellung einer Pivot-Tabelle aufgezeichnet.
Erstelle ich die Pivot mit der HAnd, klappte es.
Lasse ich den Macro laufen, bekomme ich einen Laufzeitfehler und dieser Bereich wird gelb makiert
ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:=Array("Linie", _
"art-nr", "art-bez", "Zeit / Charge")
Kann mir jemand sagen wie ich das abstellen kann?
Es sieht für mich aus, als ob die Überschriften nicht erkannt werden.
Aber daran habe ich nichts geä.
Der ganze Code ist mit angefügt!
Liebe Grüße Lisa
Sub pivot()
' pivot Makro
' Makro am 01.07.2008 von lisa aufgezeichnet
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Tabelle1!C1:C36").CreatePivotTable TableDestination:= _
"[Thomas.xls]Tabelle1!R1C37", TableName:="PivotTable1", DefaultVersion:= _
xlPivotTableVersion10
ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:=Array("Linie", _
"art-nr", "art-bez", "Zeit / Charge")
With ActiveSheet.PivotTables("PivotTable1").PivotFields("bu-menge")
.Orientation = xlDataField
.Caption = "Summe von bu-menge"
.
Function = xlSum
End With
End Sub