Office: Pause in bestehendes Makro einbinden

Hallo xlph,

kannst Du dich noch an diese Frage erinnern?

http://www.ms-office-forum.net/forum...d.php?t=321877

Du hattest mir damals das Makro erstellt, seit etwas 1 Jahr läuft es nicht mehr durch, weil die Webseite nach einer bestimmten Anzahl von Abfragen die IP-Adresse meines PC's sperrt (12-18 Abfragen) also hatte ich unter Excel 2010 und 2013 mit Strg+Pause das Makro angehalten und nach ca. 20 Sekunden weiterlaufen lassen über den Button Fortsetzen.

Seit zwei Monaten funktioniert das nicht mehr, nach dem Fortsetzen kommt bricht das Makro ab und man gelangt in den Debbug-Modus und muss hier dann ca. 150mal F8 drücken.

Ich habe versucht einen Code einzubauen der eine Pause von 20 Sekunden verursacht.

Application.Wait Now + TimeSerial(0, 0, 15)

Aber egal wo ich den platziere, es funktioniert nicht oder ich habe nicht die richtige stelle gefunden.

Kannst Du mir sagen wo genau ich das platzieren muss oder mus hier ein anderer Code verwendet werden?

Ich habe die Datei mal angehängt

Vielen Dank für eine Hilfe
und einen schönen Samstag noch

:)

 

wäre für eine Word Datei nicht das Word Forum besser?
Hier ist ein Excel Forum als .xl*

 

Hallo Hajo_Zi,

ich hatte das Makro als .bas abgespeichert weil ich die ganze Exceltabell nicht hochladen kann (zu groß). Da dieses Format nicht verwendet wird, habe ich mir eben Word ausgesucht, damit jemand auch den Code lesen kann und mir zeigen kann wo ich die Pause einfügen muss.

Die Datei hat also mit Word nichts zu tun und gehört auch nicht in das Wordforum, diese dienst nur zur Übermittlung des Makrocodes.

Mfg

 

warum soll ich Zeit investieren um eiine Exceldatei zu erstellen. Ich vermute mal die Exceldatei wäre auch nicht größer als Word.
Aber das sehe ich bestimmt falsch.
Ich bin dann raus.

 

Moin,

vermutlich wäre Dir leichter zu helfen, wenn der Code in eine leere Exceldatei eingebettet wäre.

Xlph ist hier noch aktiv - hast Du ihn schon angeschrieben?

Gruß
Ralf

 

Nein Ralf, habe in einer Frage die er beantwortet hatte um ca. 10 Uhr ein PS gesetzt.

Wenn ich den Code in eine leere Arbeitsmappe einfüge, dann funktioniert dieser nicht, denn der setzt voraus, das es Query - Abfragen unter Daten-Verbindungen gibt und zusätzlich muss eine bestimmte Tabelle vorhanden sein.

Ich versuche mal die Datei neu zuerstellen, denn kopieren geht nicht, dann sind alle 150 Abfragen vorhanden.

Wird aber etwas dauern.

Und danke für die Antwort
Gruß EuroCafe

PS jetzt mit Dateianhang ging schneller als ich gedacht hatte *Smilie

 

Moin,

ich habe keine Ahnung, was da passieren soll, immerhin passiert etwas: beim Aktualisieren kriegen die 3 Blöcke nacheinander den Focus; bei der Abfrage zuckt der Bildschirm ein paarmal, dann ist die Anwendung fertig. Und nun?

Gruß
Ralf

 

Hallo Ralf,

Sorry das ich erst jetzt Antworte, aber am neuen Rechner mitten in der Verbindung ist mir die Netzwerkkarte um die Ohren geflogen. Und die Fehlermeldungen haben mich auf das Glatteis geführt. Denn die Netzwerkkarte war richtig eingerichtet, der Treiber war der aktuellste, aber die Killersoftware wurde warum auch immer entfernt und daher konnte man keine Verbindung mehr erstellen, aber das nur als Entschuldigung, warum ich erst so spät geantwortet habe.*eek.gif*

die Beispieldatei hat nur 3 Fußballtabellen, im Original sind 144 Abfragen hinterlegt und die Seite sperrt meine PC-IP-Adresse nach 15-20 Aktualisierungen.

Das Makro hatte ich dann mit Strg + Pause nach ca. 15 Abfragen angehalten und nach 20 Sekunden Wartezeit dann über den Button "Fortsetzen" weiterlaufen lassen. Leider gibt es jetzt seit ca. 2 Wochen dann einen Debbug-Fehler und ich müsste ca. 800mal F8 drücken, das mit das Makro dann durchläuft. Denn wenn ich es neu starte fängt die Schleife wieder an.

Daher hatte ich gedacht, man könnte an einer bestimmten stelle mit dem Code "Application.Wait Now + TimeSerial(0, 0, 20)" eine Pause einfügen.
so das nach ca. 15 Abfragen dann eben eine Pause von 20 Sekunden eingelegt wird und das Makro dann weiter läuft.

Ich bin ein Laie was VBA angeht, versuche aber stetig dazu zu lernen, aber das Makro von xlph habe ich nur soweit durchblickt, das ich verstehe was es macht, aber ich verstehe nicht alle Zeilen was wann gemacht wird.

Das Mkro geht auf die Seite von futbol24.com, sucht über Verbindungen die erste Abfrage, geht auf die Internetseite und zieht sich da dann die Formwerte -> Gesamt, Heim und Auswärts und wandelt die Grafiken auf der Internetseite w in ein S um, d in ein U und l in ein N um.

Mit diesen Werten erstelle ich dann eine Formwertabfrage über alle Spiele eines Wochenendes, hinzu kommen dann noch die Abfragen Gesamttabelle, Heim und Auswärts bei denen ich die Tore abfrage, hat aber mit dieser Abfrage nicht s zu tun!

Im nächsten Schritt hole ich mir von einer anderen Seite die Vorhersagen zu den Spielen, die Quoten und das mögliche Ergebnis.

Über diverse Formeln errechne ich dann die Tippart die hier die meisten Chancen hat durchzukommen. Von den ca. 400 Spielen bleiben dann ca. 80 Spiele übrig die bestimmten Kriterien erfüllen, die ich vorgegeben habe.

Am Ende gibt mir Excel dann ca. 30 Spiele zurück auf die man etwas setzen kann, aber man kann nicht alles berücksichtigen, da es ja noc so viele Fehler gibt die man nicht vorhersehen kann.

Beispiel Bayern München - Atletico -> Elfer gegeben, war aber außerhalb des Strafraums, Elfer verschossen oder eine Abseitstor gegeben.

Am Samstag war es fast genauso, reguläres Tor von Hummels nicht gegeben, mehrmals Abseits gepfiffen obwohl es keines war u.s.w. ist eben wie Lotto ohne Glück geht nichts.

So das zur Erklärung was dieses Makro eigentlich macht und das es nur ein Teil ist den ich verwende.

Ich hoffe das hilft weiter und Du oder ein andere User kann mir sagen wo ich den Code für die Pause einbauen muss, das nach spätestens 15 Abfragen eine Pause von 20 Sekunden eingelegt wird oder wie man das Makro anhalten kann und es dann nach einer bestimmten Zeit wieder weiterläuft.

Einen schönen Sonntag und vielen Dank *wink.gif*
Gruß EuroCafe

 

Hi,

so sollte es gehen:
Code:

Wie beim Toto: Alles ohne Gewähr.

Gruß
Ralf

 

Hallo Ralf,

vielen Dank für den Code, wenn Du mir jetzt noch sagen könntest wo ich den genau im Makro platzieren muss dann könnte ich das testen.

Dein Code ist doch zusätzlich zu sehen und ersetzt nichts oder?

Vielen Dank
Mfg
EuroCafe

 

Hi,

diese Zeile
Code:

steckt im Original. Einfach drum herum!

Gruß
Ralf

 

Nach jeder 20-sten Url wird eine Pause von 10 sec. eingelegt.

Code:

 

Hallo xlph,

habe das eingebaut, Makro gestartet und nur einmal habe ich gesehen das es eine Pause gibt. Am Ende wurde alles aktualisiert (sind aber fast alle Ligen fertig) daher konnte ich nicht sehen ob es in allen Ligen die Werte aktualisiert hatte. Am Ende war ich aber auf der Seite wieder wegen der IP gesperrt.

Im Makro funktioniert "das säubern"nicht mehr was es am Anfang immer zu erst gemacht hatte, ist zwar nicht tragisch, da die Werte überschrieben werden, war aber hilfreich um zu sehen ob das Makro auch alle Daten neu eingepflegt hatte.

Ich habe dann einige Werte gelöscht und das Makro nochmal laufen lassen, alle Werte die ich gelöscht hatte wurden neu gefüllt und die Seite hat meinen PC nicht gesperrt.*wink.gif*

Also vielen Dank für die Hilfe, wie immer super und mal schauen wenn die Seite auf ein anderes Format umstellt, ob ich das dann alleine hinbekommen.

Solltest Du das hier noch lesen, dann schau bitte mal nach Chile, Japan, USA
http://de.futbol24.com/national/Chil...ion/2015-2016/
Japan - J-League - Ergebnisse, spielplan, tabellen, statistiken - Futbol24
Vereinigte Staaten - MLS - Ergebnisse, spielplan, tabellen, statistiken - Futbol24

es gibt zwar noch mehr solcher Ligen, aber ich würde gerne Dein Makro verstehen *upps

In allen anderen Ligen stehen die Tabellen auf der ersten Ebene, daher werden auch die Werte in Excel übertragen.

In den Beispiel-Ligen, muss man noch eine Ebene tiefer gehen, weil es hier Apertura/Clausura gibt oder wie in den USA Regular Season oder in Japan 1st Stage / 2st Stage.

Müsste ich für diese Ligen (sind ca. 12 Stück) jeweil das Makro um den Pfad erweitern der in eine Eben tiefer führt?

Nochmals vielen Dank für alles, ich wollte auch schon eine Bewertung abgeben, aber das System sagt ich müsste erst einem anderen User bewerten aber wie soll ich das machen wenn bei mir meistens nur 1-3 User mir eine Antwort und geben.

Liebe Grüße EuroCafe

 

Sorry habe das eingefügt in einer Sicherungsdatei

For lngCol = 1 To colURL.Count
AnzConn = AnzConn + 1
If AnzConn = MaxConn Then
MsgBox "Wait"
Application.Wait Now + TimeSerial(0, 0, Waiting)
AnzConn = 0
End If

Bleibt im Rotenbereich hängen, und gibt die Meldung aus, das es For schon gibt. Also habe ich den Bereich gelöscht und neu gestartet, jetzt fragt das Makro nach jeder Abfrage ob es weitergehen soll.

Also habe ich das auf MaxConn = 1 auf 15 gesetzt, jetzt wird nach jeder 5ten Aktualisierung nachgefragt. Beim Waiting 3 bedeutet das es 3(Abfragen, 3 Sekunden oder was warten soll?

Aber verstehen muss ich das jetzt nicht oder?

Was muss ich eingeben und wo, damit es nach 15 Abfragen wartet?

Vielen Dank *mrcool
und einen schönen Abend
Gruß EuroCafe *wink.gif*