Pivotvariable mit vba erzeugen?
16.08.2007 17:19:51
Jan
mit meinen mehr als bescheidenen VBA Kenntnissen, versuche ich derzeit (mehr schlecht als recht) die Variablen im Datenfeld einer Pivottabelle so zu erzeugen, dass die Variablennamen im Datenbereich veränderbar bleiben.
Die Überschriften in den Rohdaten der Pivottabelle (welche ja die Variablen in der Pivottabelle selbst ergeben) können sich ändern. Wenn ich in einer tabelle die Variable z.B. Land1 habe und sie verändert sich auf Land2 führt das dazu, dass die Variable Land1 aus dem Datenbereich meiner Pivottabelle verschwindet und manuell wieder eingefügt werden muss.
Das muss ich irgendwie ändern.
Mein Ansatz ist der hier...
Dim test As Range
Set test = ActiveSheet.Range("j13")
ActiveSheet.PivotTables("PivotTable1").RefreshTable
With ActiveSheet.PivotTables("PivotTable1").PivotFields(test)
.Orientation = xlPageField
.Position = 1
End With
In j13 habe ich den neuen Variablennamen aus den Rohdaten.
Ich habe versucht, j13 als test zu definieren sodass ich diesen Wert weiter unten "PivotFields(test)" als neuen Wert in die Pivottabelle übernehmen kann.
Da das nicht funktioniert und da so etwa mein VBA Horrizont schon lange überschritten ist, brauche ich Eure Hilfe.
Gruß
Jan
p.s.: wenn diese paar VBA Zeilen kompletter Quatsch sind, bitte nicht so laut lachen. VBA ist für mich Neuland.