☰

Filter alle X Minuten automatisch neu anwenden

tag-icon • tag-icon microsoft-excel
Filter alle X Minuten automatisch neu anwenden

Ich habe eine Kalkulationstabelle, die den RTD-Server verwendet, um Aktienkurse in Echtzeit zu aktualisieren.

Ich habe einen Filter auf die Tabelle angewendet und möchte ihn automatisch erneut anwenden.

Ich habe eine Lösung gefunden, um den Filter bei jeder Aktualisierung der Daten erneut anzuwenden, aber das scheint nicht mit den vom RTD-Dienst aktualisierten Daten zu funktionieren.

Private Sub Worksheet_Change(ByVal Target As Range)

    ActiveSheet.AutoFilter.ApplyFilter

End Sub

Daher habe ich mich gefragt, ob es möglich ist, den Filter alle 5 Minuten erneut anzuwenden.

Unter dem folgenden Link gibt es eine Lösung für dieses Problem, ich verstehe aber nicht ganz, wie das geht.

https://superuser.com/a/524527

Antwort1

Zusammenfügen Dein Link und das Link von gns100, erhalten wir das folgende VBA-Makro. Geben Sie ihm einen beliebigen Namen und führen Sie es einmal aus, um die Timerschleife zu starten.

Public Sub EventMacro()
    ActiveSheet.ShowAllData                    '<- keeps filter alive but shows all data
    ActiveSheet.AutoFilter.ApplyFilter         '<- apply the filter
    alertTime = Now + TimeValue("00:05:00")    '<- time = now + 5 minutes
    Application.OnTime alertTime, "EventMacro" '<- set timer
End Sub

(Ich habe dieses Makro nicht getestet.)

verwandte Informationen