Office: Pause in bestehendes Makro einbinden

Moin,

wenn die Lösung von Xlph klappt, dann nimm die, ist eh eleganter als meine.

zu den Fragen:

TimeSerial hat die Parameter Stunden, Minuten, Sekunden; Sekunden sind Variabel in Waiting abgelegt. Aufgerufen wird sie nach jedem MaxConn.

Der FOR kann nur dann doppelt sein, wenn er im Code an der falschen Stelle doppelt vorkommt :-(

Wie macht es das? Im Entwurf steckt noch eine Msgbox, die kann natürlich weg.

Gruß
Ralf

 

Hallo Ralf,

ein Laie in VBA versucht das mal zu beantworten *eek.gif*

Mit deinem Code den ich hier hin setzten sollte
For lngCol = 1 To colURL.Count
Dim AnzConn As Long
Dim MaxConn As Long
Dim Waiting As Long

Waiting = 3
MaxConn = 1

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

gab es doch schon eine FOR -Anweisung? Also habe ich diese komplett rausgenommen.

Dannach lief das Makro durch ohne Fehlermeldung, aber ich musste nach jeder Abfrage (144 Stück) die MsgBox "Wait" in Excel bestätigen.

da mir die Internetseite nach ca. 15-20 Abfragen innerhalb einer bestimmten Zeit meine IP vom PC sperrt, hatte ich gedacht ich könnte die Werte im Code ändern.
Dim Waiting As Long

Waiting = 3
MaxConn = 1 (also habe ich das auf 15 gesetzte)

danach wurden dann 5 Abfragen aktualisiert was ich nicht verstehe, jedenfalls mehr Sprünge waren in Excel bis zur MsgBox nicht zu sehen.

Welchen Wert müsste ich ansetzten und wo? Damit es eine Pause von 20 Sekunden gibt, 15 Abfragen durchgeführt werden und dann erst die MsgBox erscheint?

Wie schon geschrieben habe ich auch die Variante von User xlph ausprobiert, mal werde ich gesperrt und mal nicht, aber es gibt einen Unterschied zwischen beiden Varianten!

Bei xlph werden fast alle Werte aktualisiert nur die Liga in Tschechien nicht, bei Deinem Code sind es über 15 Ligen bei denen keine Werte gesetzt werden, aber ich sehe nicht warum *eek.gif*

Ich denke bis ich 65 bin werde ich auch etwas besser werden in VBA, aber al Controller würde ich ja gerne verstehen was hier passiert und warum etwas nicht passiert.

Hilft das jetzt weiter ?
Kannst Du meine Fragen beantworten?

Ich wünsche einen schönen Abend und ich werde nun mit dem Bestehenden mal das Wochenende anfangen zu aktualsieren.

Schöne Grüße
EuroCafe