Hi Team,
ich hoffe ihr könnt mir helfen.
Folgende Situation:
Ich habe mehrere Worksheets mit Daten vorliegen
In einem umfangreichen Macro habe ich Formeln hinterlegt, das die Daten in den Worksheets verarbeitet.
Es sind vorwiegende vlookups
Bei einigen dieser Vlookups muss ich eine Hilfsspalte erstellen, bestimmte Werte auslesen lassen und je nach ausgelesenem Wert ganze Reihen löschen lassen. Nach dem Löschen der Reihen wird die Hilfsspalte gelöscht.
Das alles funktioniert tadellos...doch dann kommt das Problem, das die Pivottabellen sich nicht automatisch aktualisieren und wenn ich es manuell vornehme die Formatierung der Pivot verloren geht, weil die Datenquelle sich verändert.
Wenn ich im Pivot tool mit click auf "Change Data Source" clicke sehe ich das die Range der Datenquelle nicht die gesamte Tabelle erfasst.
Dabei habe ich versucht das zu verhindern in den ich folgenden Code versuchte:
'Set Pivot Table & Source Worksheet
Set Data_Sheet = ThisWorkbook.Worksheets("My_Data_Source")
Set Pivot_Sheet = ThisWorkbook.Worksheets("My_Data_destination")
'Enter in Pivot Table Name
PivotName = "The_name_of_the_Pivot_table"
'Defining Staring Point & Dynamic Range
Data_Sheet.Activate
Set StartPoint = Data_Sheet.Range("A1")
LastCol = StartPoint.End(xlToRight).Column
DownCell = StartPoint.End(xlDown).Row
Set DataRange = Data_Sheet.Range(StartPoint, Cells(DownCell, LastCol))
NewRange = Data_Sheet.Name & "!" & DataRange.Address(ReferenceStyle:=xlR1C1)
'Change Pivot Table Data Source Range Address
Pivot_Sheet.PivotTables(PivotName). _
ChangePivotCache ActiveWorkbook. _
PivotCaches.Create(SourceType:=xlDatabase, SourceData:=NewRange)
'Ensure Pivot Table is Refreshed
Pivot_Sheet.PivotTables(PivotName).RefreshTable
Aber es scheint keinerlei Effekt zu haben.
Für eure Hilfe wäre ich sehr dankbar.
Chris