habe folgendes Problem, habe den unten stehenden Makro aufgezeichnet und bekomme immer den Laufzeitfehler 1004.
Was ist das für ein Fehler und wie kann ich ihn abstellen???
Sub KostenSt()
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
"Tabelle1!C1:C4", TableDestination:=ThisWorkbook.Name & "Tabelle3!R1C1", TableName _
:="Pivot-Tabelle1"
ActiveSheet.PivotTables("Pivot-Tabelle1").AddFields RowFields:="KostenSt"
With ActiveSheet.PivotTables("Pivot-Tabelle1").PivotFields("Saldo")
.Orientation = xlDataField
.Name = "Summe - Saldo"
.Function = xlSum
.NumberFormat = "0.00"
End With
Application.CommandBars("PivotTable").Visible = False
End Sub
Gruß
Christine