Worksheet.PivotTableBeforeAllocateChanges-Ereignis (Excel)

  • Artikel

Tritt auf, bevor Änderungen auf eine PivotTable angewendet werden.

Syntax

Ausdruck. PivotTableBeforeAllocateChanges (TargetPivotTable, ValueChangeStart, ValueChangeEnd, Cancel)

Ausdruck: Eine Variable, die ein Worksheet-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
TargetPivotTable Erforderlich PivotTable Die PivotTable, in der die anzuwendenden Änderungen enthalten sind.
ValueChangeStart Erforderlich Long Der Index für die erste Änderung in der zugeordneten PivotTableChangeList-Auflistung . Der Index wird von der Order-Eigenschaft des ValueChange-Objekts in der PivotTableChangeList-Auflistung angegeben.
ValueChangeEnd Erforderlich Long Der Index für die letzte Änderung in der zugeordneten PivotTableChangeList-Auflistung. Der Index wird durch die Order-Eigenschaft des ValueChange-Objekts in der PivotTableChangeList-Auflistung angegeben.
Cancel Erforderlich Boolean False, wenn das Ereignis auftritt. Wenn die Ereignisprozedur dieses Argument auf True festlegt, werden die Änderungen nicht auf die PivotTable angewendet, und alle Änderungen gehen verloren.

Rückgabewert

Nothing

HinwBemerkungeneise

Das PivotTableBeforeAllocateChanges-Ereignis tritt unmittelbar ein, bevor Excel eine UPDATE CUBE-Anweisung ausführt, um alle Änderungen auf die OLAP-Datenquelle der PivotTable anzuwenden, und unmittelbar nachdem der Benutzer sich entschieden hat, Änderungen auf der Benutzeroberfläche anzuwenden.

Beispiel

Im folgenden Codebeispiel wird der Benutzer aufgefordert, bevor Updates auf die OLAP-Datenquelle der PivotTable angewendet werden.

Sub Worksheet_PivotTableBeforeAllocateChanges(ByVal TargetPivotTable As PivotTable, _ 
 ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean) 
 Dim UserChoice As VbMsgBoxResult 
 
 UserChoice = MsgBox("Allow updates to be applied to: " + TargetPivotTable.Name + "?", vbYesNo) 
 If UserChoice = vbNo Then Cancel = True 
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.