pivot in vba
loca
Ich kriege mein Erstellen eines Pivot im VBA immer den Run-time error 1004 AddFields method of Pivot Table class failed. Was muss ich anderst machen?
Besten Dank und Gruss
Loca
PS Ausserdem funktiert gar nichts ohne die Zusatzspalte C. Woran liegt das?
https://www.herber.de/bbs/user/75880.xls
Sub Pivot()
Columns("A:B").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Sheet1!C1:C2").CreatePivotTable TableDestination:="", TableName:= _
"Pivot", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("Pivot").AddFields RowFields:=Array("A", "B")
ActiveSheet.PivotTables("Pivot").PivotFields("B").Orientation = _
xlDataField
Range("A4").Select
ActiveSheet.PivotTables("Pivot").PivotFields("A").Subtotals = Array( _
False, False, False, False, False, False, False, False, False, False, False, False)
End Sub