Office: (Office 2013) Pivot berechnetes Feld mit externem Bezug

Ändere den Namen der Pivottabelle (Pivottable1).

 

Ok Meister, hab ich genau befolgt. Mein erstes Tabellenblatt mit Pivot drauf heißt nun auch Pivot. Die beiden weiteren Blätter mit Pivot drauf kann ich ja nun nicht auch so nennen..... Meintest Du den PivotTable-Name ?
Den hab ich in allen 3 Blättern auf PivotTable1 geändert.
Es funktioniert jetzt, aber leider nur beim ersten Tabellenblatt, welches Pivot heißt. Was hab ich noch übersehen?

Dim ws As Worksheet
Dim n As Double, s As String

Set ws = ThisWorkbook.Worksheets("Pivot")
With ws
n = Range("Auftragswert").Value
s = "=Vertragswert/" & n
Application.EnableEvents = False
.PivotTables("PivotTable1").CalculatedFields( _
"prozentual").StandardFormula = s
.PivotTables("PivotTable1").PivotCache.Refresh
Application.EnableEvents = True
End With
Set ws = Nothing
End Sub

Wieder eine schlaflose Nacht *weinen

Die Ostfriesin

 

Hallo Ostfriesin,

konntest Du Dein Problem lösen oder hast Du immer noch schlaflose Nächte.
Ein kleines Beispiel, daß dem Original sehr nahe kommt und wir versuchen, das Problem ins Nirwana zu schicken.

Gruß von Luschi
aus klein-Paris

 

Hallo Ihr Lieben,
wollte Euch nicht im Unklaren lassen :-)
Hab meine Datei komplett neu aufgebaut und Euer tolles Makro dort eingebaut mit den entsprechenden Anpassungen. Und siehe ja, jetzt hat alles funktioniert!
Anscheinend war meine ursprüngliche Datei irgendwie korrupt.
Also danke nochmal und gutes Gelingen für alle, die diese tolle Lösung auch nutzen möchten. *10points
Liebe Grüße
Eure Ostfriesin