Worksheet.PivotTableBeforeCommitChanges-Ereignis (Excel)
Tritt auf, bevor für Änderungen an der OLAP-Datenquelle für eine PivotTable ein Commit ausgeführt wird.
Syntax
Ausdruck. PivotTableBeforeCommitChanges (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 Änderungen enthalten sind, für die ein Commit ausgeführt werden soll. |
| ValueChangeStart | Erforderlich | Long | Der Index für die erste Änderung im zugeordneten PivotTableChangeList-Objekt . 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 im zugeordneten PivotTableChangeList-Objekt. 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, wird kein Commit für die Änderungen an der OLAP-Datenquelle der PivotTable ausgeführt. |
Rückgabewert
Nothing
Hinweise
Das PivotTableBeforeCommitChanges-Ereignis tritt unmittelbar vor dem Ausführen einer COMMIT TRANSACTION-Anweisung für die OLAP-Datenquelle der PivotTable und unmittelbar nach dem Speichern der Änderungen für die gesamte PivotTable durch den Benutzer auf.
Beispiel
Im folgenden Codebeispiel wird der Benutzer aufgefordert, bevor Änderungen an der OLAP-Datenquelle der PivotTable committet werden.
Sub Worksheet_PivotTableBeforeCommitChanges(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 saved 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.