Supportnet Computer
Planet of Tech

Supportnet / Forum / WindowsXP

pivot in makro





Frage

With ActiveSheet.PivotTables("PivotTable12").PivotFields("OZ")

Antwort 1 von noki

hier der Text nochmal, ist wohl im Nirwana gelandet

Hallo an die Retter

makro soll Pivot Tabelle anlegen, habe mit Rekorder aufgezeichnet, hat alles geklappt.
Wenn ich das makro ausführen will bleibt das makro an dieser Stelle mit einem Laufzeitfehler hängen:

With ActiveSheet.PivotTables("PivotTable12").PivotFields("OZ")

hier der komplette code:

Sheets("Flächen-o-sonst").Select
Columns("D:D").Select
Selection.Insert Shift:=xlToRight
Columns("E:E").Select
Selection.Copy
Columns("D:D").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Columns("E:E").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Cells.Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'Flächen-o-sonst'!C1:C26").CreatePivotTable TableDestination:="", TableName _
:="PivotTable12", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
Range("A4").Select
Selection.NumberFormat = "0"
With ActiveSheet.PivotTables("PivotTable12").PivotFields("OZ")
.Orientation = xlRowField
.Position = 1
End With
Columns("A:A").Select
Selection.NumberFormat = "0"
Range("F16").Select
ActiveSheet.PivotTables("PivotTable12").AddDataField ActiveSheet.PivotTables( _
"PivotTable12").PivotFields("Anzahl WE"), "Anzahl von Anzahl WE", xlCount
ActiveSheet.PivotTables("PivotTable12").AddDataField ActiveSheet.PivotTables( _
"PivotTable12").PivotFields("Fläche"), "Anzahl von Fläche", xlCount
Range("B3").Select
With ActiveSheet.PivotTables("PivotTable12").DataPivotField
.Orientation = xlColumnField
.Position = 1
End With
Range("B4").Select
ActiveSheet.PivotTables("PivotTable12").PivotFields("Anzahl von Anzahl WE"). _
Function = xlSum
Range("C4").Select
ActiveSheet.PivotTables("PivotTable12").PivotFields("Anzahl von Fläche"). _
Function = xlSum
ActiveWorkbook.ShowPivotTableFieldList = False
Application.CommandBars("PivotTable").Visible = False
End Sub

seltsamerweise hat ein erste Versuch funktioniert, musste aber noch was ändern und habs einfach neu gemacht, seitdem geht´s nicht mehr

Würde mich riesig freuen wenn jemand einen Tipp für mich hat.

Danke im Voraus