Worksheet.PivotTableBeforeAllocateChanges-Ereignis (Excel)
Tritt auf, bevor Änderungen auf eine PivotTable angewendet werden.
Syntax
Ausdruck. PivotTableBeforeAllocateChanges (TargetPivotTable, ValueChangeStart, ValueChangeEnd, Cancel)
expression: 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.