Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
884to888
884to888
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

zykl. Webabfrage

Forumthread: zykl. Webabfrage

zykl. Webabfrage
08.07.2007 10:02:00
Rolf
Hallo,
ich habe folgendes Problem.
Beim Start meines Excel-Workbooks trage ich per VBA zyklische Webabfragen ein.
So weit so gut. Die Abfragen liefern mir auch im angeegeben Zyklus die richtigen Daten.
Ich will aber beim Eintreffen der Daten noch einige Änderungen der Daten vornehmen.
Nun meine Frage. Wie kann ich erkennen welche der Abfragen gerade ausgeführt wurde.
Gibt es ein Ereignis (das ich nur noch nicht gefunden habe) , das ich verweenden kann?
Besten Dank schon mal im Voraus.
Rolf

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zykl. Webabfrage
09.07.2007 14:12:49
Renee
Mazwara Rolf,
Beispiel:
WebQuery 1 auf A1 Titelzelle B8 enthält Equity Market als Rückgabe der Query 1
WebQuery 2 auf A501 Titelzelle B108 enthält Equity Market als Rückgabe der Query 2
Auf Zelle A1000 steht =B8 (die Formel auf dem gleichen Blatt wie die Webquery und mit Bezug auf ein Feld von dieser, ist wichtig, da sonst das Worksheet_Calculate Event nicht feuert).
Dieser Code sorgt dafür, das immer bei einem (automatischen) Refresh der Webdaten der getriggert wird. Beachte das Hinzusetzen einer Leerstelle zu einem String (hier in B8), sodass sich dieser von dem was das Query liefert unterscheidet !

' In DieseArbeitsmappe
Private Sub Workbook_Open()
Application.EnableEvents = False
Sheets("Tabelle1").Cells(8, 2) = "Equity Market "
Sheets("Tabelle1").Cells(508, 2) = "Equity Market "
Application.EnableEvents = True
End Sub
' In Tabelle 1
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
If Cells(8, 2) = "Equity Market" Then
Cells(8, 2) = "Equity Market "
' Zusätzliche Veränderungen für Query 1
End If
If Cells(508, 2) = "Equity Market" Then
Cells(508, 2) = "Equity Market "
' Zusätzliche Veränderungen für Query 2
End If
Application.EnableEvents = True
End Sub


Greetz Renee

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige