VBA Code funktioniert nach Officewechsel nichtmehr

[StrammerMax]

Hallo zusammen, 

ich habe hier eine Arbeitsmappe mit VBA Code (aus einer Tabelle wird automatisch eine Pivottabelle erstellt). 

Mit Office 2010 läuft der Code einwandfrei durch. 

Nach dem Wechsel auf Office 365 wirft er mit bei folgendem Abschnitt eine Exception:

Code:

   ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
       "Tabelle1!R1C1:R55555C37", Version:=xlPivotTableVersion10).CreatePivotTable _
       TableDestination:="Tabelle4!R3C1", TableName:="PivotTable9", _
       DefaultVersion:=xlPivotTableVersion10

Vermutlich hängt es an der xlPivotTableVersion10 - ich habe schon alles ausprobiert - finde aber keine Version, mit der es läuft. 

Könnt ihr mir bitte helfen?

[Gast 123]

Hallo

mit dem Code kenne ich mich überhaupt nicht aus, habe trotzdem als "Tüftler" eine Frage:
was passiert wenn du hinter "TableName:="PivotTable9" den restlichen Code einfach zum Testen mal weg laesst?? 
Wenn dann was erstellt wird, auch wenn es nicht richtig ist, weisst du das der letzte Teil das Problem verursacht.

mfg Gast 123

[StrammerMax]

Das funktioniert nicht, weil er dann sagt dass er eine Anweisung erwartet.

[snb]

Gibt es ein Worksheets namens 'Tabelle1'  und Tabelle4 ??

Verwende einfach:

Code:

with ActiveWorkbook.PivotCaches.Create(1, Tabelle1.Range("A1:AK55555")).CreatePivotTable(Tabelle4.range("A3"), "Strammer")

End With

[StrammerMax]

Die Tabellen existieren. Daran liegt es nicht. Es wurde ja auch nichts geändert. 


Zu deinem Codevorschlag - ich muss doch aber angeben, woher die Daten kommen: also als Quelle Tabelle1?
Und ihm sagen, dass es eine Pivottabelle werden soll.

[snb]

Was könnte

Code:

Tabelle1.Range("A1:AK55555")

anders bedeuten als Quelle ?