Webdaten mit Makro verknüpfen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Willi
Ich nehme an, die Daten werden mittels Webabfrage in eine formatierte "intelligente" Tabelle (ListObject) geladen.
Quelle:
https://stackoverflow.com/questions/26983053/how-to-call-macro-after-refresh-or-refresh-all-button-pressed
Modul: DieseArbeitsmappe


Dim qtevent As qtclass


Private Sub Workbook_Open()
Set qtevent = New qtclass
Set qtevent.HookedTable = ThisWorkbook.Worksheets("Tabelle1").ListObjects(1).QueryTable
End Sub

Modul: Klassenmodul (Menü Einfügen, Klassenmodul)
Das Modul umbenennen in qtclass


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)
Call MeinMakro
End Sub

cu
Chris

Hallo Tobias,
vielen Dank für die Antwort.
Es ging darum, daß ich Aktienkurse aktualisiert verarbeiten will. Meine Gedanke war, daß, wenn neue Daten aus dem Netz kommen, das Makro für die Verarbeitung automatisch startet.
Eine erste Lösung war dann, daß ich nach einer Aktualisierung* - geht ja automatisch, bzw. bei Start der Datei - jeweils abgefragt habe, ob sich ein Wert verändert hat und habe bei "JA" das zweite Makro gestartet. Etwas umständlich, funktioniert aber. Problem: letztendlich erzeugt man eine Endlosschleife, da sich ja ständig etwas ändert.
So habe ich die Einstellungen bei Daten-> Verbindungen -> Verbindungseigenschaten bei " Aktualisierung alle ... Minuten" nicht aktiviert und nur "Aktualierung bei Öffnen der Datei" angeklickt.
D.h. Datei starten, Werte werden dann aktualisiert und dann habe ich für das Makro einen STRG Befehl gesetzt und schon startet das Ganze. (Händisch natürlich)
Datei aufrufen -> (Daten werden aktualisiert s.o.) -> STRG Y -> die Berechnungen erfolgt.
Alternativ kann ich nun, da ich ein zweites Makro (Kurse) geschrieben habe auch wie folgt vorgehen (Datei bleibt z.B.längere Zeit offen, ggf über Stunden):
Datei ist aufrufen -> STRG A -> Makro (Kurse). Refreshed die Daten aus dem Netz und danach startet Makro 2. (Ggf. muß man eine Pause einbauen, damit ersteinmal alle Daten aus dem Netz gezogen wurden, bevor das zweite Makro startet).


Sub Kurse()
Sheets("Worksheet1").Select
ActiveWorkbook.RefreshAll
Application.GoTo Reference:="Kurse"
Application.Wait Now + TimeSerial(0, 0, 15)                               '15 Sekunden Pause
Makro2                                                                                       'Start des Verarbeitungsmakro
End Sub

Ich habe das so detailliert geschrieben, da ich nirgendwo eine Lösung gefunden hatte, wie man automatisiert refreshed, sondern im Gegenteil Aussagen, daß dafür keine Lösung bekannt sei. Daher hier meine Lösung. Ggf. hilft es jemanden weiter.
Gruß
Willi

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread