Ich habe ein Mappe, mit einer Pivot-Tabelle, welche immer aktualisiert werden soll.
für das aktualisieren benutze ich folgende Code:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.EnableEvents = False
Dim pt As PivotTable
For Each pt In Sh.PivotTables
pt.PivotCache.Refresh
Next pt
Application.EnableEvents = True
End Sub
aber immer wenn der Code ausgeführt wird oder ich die Datei öffne kommt folgende Fehlermeldung:
Der PivotTable-Feldname ist ungültig. Um einen PivotTable-Bericht zu erstellen, müssen Sie Daten verwenden, die in einer Liste mit Spaltenüberschriften organisiert sind. Wenn Sie den Namen eines PivotTable-Bericht-Feldes ändern, müssen Sie einen neuen Namen für das Feld eingeben.
Hab schon alles Probiert, aber keine Ahnung, was ich mit dieser Fehlermeldung anfangen soll...
Die Daten der Tabelle stehen immer in den Spalten A:C und werden durch ein Makro aktualisiert. Dabei werden während dem ablaufenden Makro alle Inhalte dieser Zellen entfernt und neu eingefügt..Vielleicht ist das das Problem?
Bitte um Hilfe!
Danke schon im voraus für jegliche Art von unterstützung und wünsche noch einen schönen Tag!
Gruss
Beat