Hallo zusammen,

ich habe ein Makro für ein Monitoring geschrieben, das wöchentlich durchgeführt wird. Dort bekommt man jede Woche Liste mit vielen Daten, aus denen dann jeweils eine Pivottabelle erstellt wird, aus der dann diese sortierten Daten in einer anderen Liste zusammengefasst werden.

Alles andere klappt schon super, nur wäre es schön, wenn ich auch diese Pivottabellen durch das Makro erstellen lassen könnte. Aus diesem Grund habe ich das per Rekorder aufgezeichnet und für meine Zwecke angepasst. Klappt auch alles super - bis eine neue Woche ist und damit neue Tabellenblätter mit Daten kommen (sind immer gleich aufgebaut, nur die Anzahl der Daten ändert sich).

Dann unterbricht das Makro und die Meldung:

"Laufzeitfehler 1004

Der PivotTable-Feldname ist ungültig. Um einen PivotTable-Bericht zu erstellen, müssen Sie Daten verwenden (...)"

Wenn ich allerdings in dem Makro aber nur eine zahl ändere (den Bereich?), nämlich bei SourceData:= "EU!R1C1:R1376C6" -statt C7 am Ende - schreibe, dann läuft das ganz normal und richtig durch.

Kann mir jemand sagen, wofür dieses C6 oder 7 am ende steht und wie ich es "allgemein" darstellen kann, also dass es für alle listen gültig ist?

Hier ist das makro für die pivottabelle, das in dem einen fall auf jeden fall gut durchläuft.

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"EU!R1C1:R1376C6").CreatePivotTable TableDestination:="", TableName:= _
"PTEU3", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select


Wäre super, wenn ihr mir helfen könnt. Schon einmal vielen Dank von mir!
Gruß
Melanie