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
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