Private Sub_On Event: Auch über CALL ansprechbar?
02.09.2008 15:18:00
Andreas
ich arbeite viel und ohne Komplikationen mit dem Event:
Private Sub Worksheet_PivotTableUpdate. Nach diesem Event lasse ich einige Plausibilitätsprü _
fungen laufen. Nun habe ich die Konstellation, daß eine Prozedur (XYZ), die ich durch einen Button auslöse aufgrund der Performance mit Application.EnableEvents = False arbeitet und diesen Status nach Abschluß auch wieder auf True setzt. Diese Prozedur greift aber zum Teil erheblich in die Pivot Tabelle ein, so daß es optimal wäre, wenn dann die Plausibilitätsprüfungen kommen würden.
Diese Plausibilitätsprüfungen sind ihrerseits eine mittlerweile ganze Reihe von Prozeduren, die _
nach PivotTable Update über CALL aufgerufen werden.
Ich könnte diese in ein Modul kopieren und dort nach Prozedur (XYZ) über CALL ansprechen. _
Aber dadurch verdopple ich gerade in der Entwicklungsphase den Administrationsaufwand.
Besteht die Möglichkeit, nach der Prozedur (XYZ) irgendwie über CALL den
Private Sub zu aktivieren? Möglich wäre, bewußt ein Event zu imitieren. Aber allein das _
Auffrischen dieser Pivot dauert mehrere Sekunden.
Prozedur(XYZ)_START
Enable Events = False
Code
Code
Code
EnableEvents = True
CALL
Private Sub (da dieser ja aufgrund er ausgeschalteten Events allein nicht kommt)
Prozedur(XYZ)_ENDE
Private Sub PivotTable Update()
Code
Code
Code
End Sub
Ich freue mich über Anregungen aus dem Forum.
Vielen Dank und Grüße, Andreas Hanisch