Worksheet.PivotTableBeforeAllocateChanges-Ereignis (Excel)

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

Hinweise

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.