Pivot-Felder werden nicht mehr gefüllt
heidi
ich habe in meiner Tabelle per VBA ein paar Spalten gelöscht bzw. ausgeschnitten und weiter nach hinten versetzt. Jetzt funktioniert jedoch das Füllen der Pivot-Tabelle nicht mehr. (Kann Add.Fields-Methode nicht ausführen).
Woran könnte das liegen?
Ich bitte um Hilfe!
Herzliche Grüße,
Heidi
'Pivottabellenbericht(e) einrichten
'Diesen PivotCache könnte man auch für mehrere Pivottabellen nutzen - minimiert die Dateigröße
Set pvCache = wbVKGAneu.PivotCaches.Create(SourceType:=xlDatabase, _
SourceData:=rngPivot, Version:=xlPivotTableVersion11) _
'Die Version ggf. von 11 (Excel 2003) auf eine ältere Version setzen)
'Leertabelle für Pivotbericht anfügen
wbVKGAneu.Worksheets.Add after:=wksVKGAneu
Set wksPivot = ActiveSheet
With wksPivot
.Name = "Neukunden nicht besucht"
'Pivottabelle erstellen - Leergerüst
Set pvTab = pvCache.CreatePivotTable(tabledestination:=.Range("A9"), _
Tablename:="Neukunden nicht besucht", _
defaultversion:=xlPivotTableVersion11)
End With
With pvTab
'Felder zum Bericht hinzufügen
.AddFields RowFields:=Array("Stadt_Landkreis_Name"), _
ColumnFields:=Array("Nace_2008"), _
PageFields:=Array("VSyName", "Umsatz_idl_12_Monate_aktiv", "Notizen_idl_12_Monate", "IstBesuche_idl12_Monaten", "Interessent", "Neukunde/Neuer Int.")
'Datenbereichsfeld(er) einrichten und formatieren
Set pvField = .AddDataField(Field:=.PivotFields("Debitor"), _
Caption:="Anzahl Einträge", _
Function:=xlCount)
With pvField
.NumberFormat = "0"
End With
'Zeilenbereichsfeld(er) formatieren
Set pvField = .RowFields("Stadt_Landkreis_Name")
With pvField
.AutoSort Order:=xlAscending, Field:="Stadt_Landkreis_Name"
End With
'Spaltenbereichsfeld(er) formatieren
With .ColumnFields("Nace_2008")
.AutoSort Order:=xlAscending, Field:="NACE_2008"
End With
'Summenwerte für Zeilen und Spalten anzeigen ?
.RowGrand = True
.ColumnGrand = True
End With
ActiveSheet.PivotTables("Neukunden nicht besucht").PivotFields( _
"IstBesuche_idl12_Monaten").CurrentPage = "All"
ActiveSheet.PivotTables("Neukunden nicht besucht").PivotFields("Interessent"). _
CurrentPage = "All"
ActiveSheet.PivotTables("Neukunden nicht besucht").PivotFields( _
"Umsatz_idl_12_Monate_aktiv").CurrentPage = "All"
ActiveSheet.PivotTables("Neukunden nicht besucht").AddDataField ActiveSheet. _
PivotTables("Neukunden nicht besucht").PivotFields("Umsatz_idl_12_Monate"), _
"Anzahl von Umsatz_idl_12_Monate", xlCount
With ActiveSheet.PivotTables("Neukunden nicht besucht").DataPivotField
.Orientation = xlColumnField
.Position = 2
End With
With ActiveSheet.PivotTables("Neukunden nicht besucht").PivotFields( _
"Anzahl von Umsatz_idl_12_Monate")
.Caption = "Summe von Umsatz_idl_12_Monate"
.Function = xlSum
.NumberFormat = "0 "
End With
With ActiveSheet.PivotTables("Neukunden nicht besucht").DataPivotField
.Orientation = xlRowField
.Position = 2
End With