So rufen Sie das Makro nach dem Aktualisieren oder Aktualisieren auf Alle Taste gedrückt?

Question

Schließlich möchte ich ein Makro ausführen, nachdem jeder die Arbeitsmappe aktualisiert, insbesondere mit der Schaltfläche Aktualisieren in Excel auf der Registerkarte Daten. Vorläufig wäre ich jedoch zufrieden damit, dass die Ereignisse BeforeRefresh oder AfterRefresh QueryTable ausgelöst werden, wenn die Schaltfläche Aktualisieren gedrückt wird.

Neben dem auf dem Microsoft Dev Center-Website angeboten ‚Dokumentation‘, die entsprechenden Beiträge, die ich im Rahmen dieses Forschungsprozesses gelesen haben, gehören:

• Excel VBA - QueryTable AfterRefresh function not being called after Refresh completes
• VBA For Excel AfterRefresh Event
• Es andere sind weniger hilfreiche oder relevante Beiträge, aber mir fehlt der Ruf, sie hier zu posten.

Ich vermisse eindeutig etwas Wichtiges (und am ehesten offensichtlich). Hier ist, was ich habe bisher:

Unter Klassenmodule (qtclass)

Option Explicit 

Private WithEvents qt As Excel.QueryTable 

Private Sub qt_AfterRefresh(ByVal Success As Boolean) 

    MsgBox "qt_AfterRefresh called sucessfully." 
    If Success = True Then 
     Call Module2.SlicePivTbl 
     MsgBox "If called succesfully." 
    End If 

End Sub 

Private Sub qt_BeforeRefresh(Cancel As Boolean) 
    MsgBox "qt_BeforeRefresh called." 
End Sub 

Unter dem Thisworkbook-Modul

Private Sub Workbook_Open() 

    Dim qtevent As qtclass 
    Dim qt As QueryTable 
    Set qt = ThisWorkbook.Worksheets("Data-Fund").ListObjects(1).QueryTable 
    Set qtevent = New qtclass 

End Sub 

ich versucht habe, Variationen des zweiten Codeblock unter bestimmten Arbeitsblätter als auch , aber habe noch nichts gefunden, was funktioniert. Muss ich das betreffende QueryTable im Worksheet-Modul irgendwie dimmen? Irgendwelche Vorschläge oder Gedanken zu dem, was ich vermisse, wären sehr willkommen.

Answer 1

Sie haben die Abfragetabelle nicht wirklich mit der Klasseninstanz verbunden. Überarbeitete qtclass

Option Explicit 

Private WithEvents qt As Excel.QueryTable 
Public Property Set HookedTable(q As Excel.QueryTable) 
    Set qt = q 
End Property 

Private Sub qt_AfterRefresh(ByVal Success As Boolean) 

    MsgBox "qt_AfterRefresh called sucessfully." 
    If Success = True Then 
     Call Module2.SlicePivTbl 
     MsgBox "If called succesfully." 
    End If 

End Sub 

Private Sub qt_BeforeRefresh(Cancel As Boolean) 
    MsgBox "qt_BeforeRefresh called." 
End Sub 

New Thisworkbook-Code:

Dim qtevent As qtclass 
Private Sub Workbook_Open() 

    Set qtevent = New qtclass 
    Set qtevent.HookedTable = ThisWorkbook.Worksheets("Data-Fund").ListObjects(1).QueryTable 

End Sub 

Beachten Sie, dass dies ganz eng gekoppelt. Es wäre wiederverwendbarer, wenn Sie Ereignisse in der Klasse auslösen und Ihre qtevent-Variable WithEvents deklarieren würden.