Erstellung Pivottabelle per Makro
31.03.2015 15:04:30
Carlu
ich möchte gerne per Makro eine Pivottabelle in Excel 2010 erzeugen. Dabei hatte ich ein Makro aufgezeichnet und auf dieser Grundlage bisher folgenden Code hinterlegt:
Columns("A:AW").Select
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Materialliste!R1C1:R1048576C49", Version:=xlPivotTableVersion14). _
CreatePivotTable TableDestination:="Tabelle1!R3C1", TableName:= _
"PivotTable1", DefaultVersion:=xlPivotTableVersion14
Sheets("Tabelle1").Select
Cells(3, 1).Select
Die Rohdaten befinden sich als Auflistung in dem Tabellenblatt Materialliste, die Pivottabelle wird in ein neues Tabellenblatt namens Tabelle1 hinterlegt als PivotTable1. Wenn das Makro mit neuer Datei, die die Rohdaten enthält, ausgeführt wird, gibt Excel nun folgenden Fehler raus:
Laufzeitfehler '1004':
Bezug ist ungültig.
Ich finde ehrlich gesagt seit 3 Stunden keinen Fehler. Wenn ich die Pivottabelle dann wieder manuell erzeuge und die Makroaufzeichnung mitlaufen lasse, wird genau dieser obige Code von Excel angegeben! Mittlerweile bin ich hier völlig ratlos woran es liegen könnte! Eine Hilfestellung wäre großartig! Vielen Dank schon mal vorab!
Grüße
Carlu