Hallo werte Xls-Profis,
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