Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1220to1224
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Pivot-Tabelle mit 2 Bereichen (VBA)

Pivot-Tabelle mit 2 Bereichen (VBA)
Peter
Hallo zusammen,
folgendes Problem: Ich habe ein Makro aufgezeichnet, mit dem ich eine Pivot-Tabelle über 2 Bereiche erstelle. Nun möchte ich das Makro ausführen (habe nichts daran geändert), und es kommt die Fehlermeldung "Objekt erforderlich". Verstehe nicht, wieso. Was passt nicht am Code?

ActiveWorkbook.PivotCaches.Create(SourceType:=xlConsolidation, SourceData:=Array(Array(" _
carton_pieces!C13:C14", "Element1"), _
Array("carton_pieces!C15:C16", "Element2")), Version:=xlPivotTableVersion12). _
CreatePivotTable TableDestination:= _
"[Datei.xlsm]carton_pieces!R3C17", TableName:="PivotTable1", DefaultVersion:= _
xlPivotTableVersion12
ActiveSheet.PivotTables("PivotTable1").DataPivotField.PivotItems("Anzahl von Wert"). Position =  _
1
ActiveSheet.PivotTables("PivotTable1").PivotFields("Spalte").Orientation = xlHidden
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Anzahl von Wert")
.Orientation = xlRowField
.Position = 2  'Hier kommt die Fehlermeldung "Objekt erforderlich"
End With
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables _
("PivotTable1").PivotFields("Zeile"), "Anzahl von Zeile", xlCount
ActiveSheet.PivotTables("carton_pieces1").ColumnGrand = False
ActiveSheet.PivotTables("carton_pieces1").RowGrand = False

Bin für eure Hilfe und Tipps sehr dankbar!
Viele Grüße,
Peter

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Pivot-Tabelle mit 2 Bereichen (VBA)
15.07.2011 16:01:44
Peter
sorry, die letzten beiden Zeilen gehören nicht zu dem code:

ActiveWorkbook.PivotCaches.Create(SourceType:=xlConsolidation, SourceData:=Array(Array(" _
carton_pieces!C13:C14", "Element1"), _
Array("carton_pieces!C15:C16", "Element2")), Version:=xlPivotTableVersion12). _
CreatePivotTable TableDestination:= _
"[Datei.xlsm]carton_pieces!R3C17", TableName:="PivotTable1", DefaultVersion:= _
xlPivotTableVersion12
ActiveSheet.PivotTables("PivotTable1").DataPivotField.PivotItems("Anzahl von Wert"). Position =  _
1
ActiveSheet.PivotTables("PivotTable1").PivotFields("Spalte").Orientation = xlHidden
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Anzahl von Wert")
.Orientation = xlRowField
.Position = 2  'Hier kommt die Fehlermeldung "Objekt erforderlich"
End With
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables _
("PivotTable1").PivotFields("Zeile"), "Anzahl von Zeile", xlCount

Anzeige
AW: Pivot-Tabelle mit 2 Bereichen (VBA)
15.07.2011 16:08:34
Peter
verrückte Geschichte: Hab den Teil

.Position = 2
einfach mal weggelassen, und nun klappts :-)
Gruß,
Peter

317 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige