Verzögerung zwischen Befehlen
07.08.2014 20:33:22
Peter
nun zum nächsten Problem.
In dem Makro soll zuerst die Webabfrage aktualisiert werden um danach die Daten kopieren zu können.
Deswegen möchte ich zwischen dem Ausführen des Befehls RefreshAll und dem kopieren, ein paar Sekunden Verzögerung zwischen den zwei Befehlen einbauen.
Momentan werden die Daten zuerst kopiert, während die Aktualisierung noch voll im Gang ist.
Mit Application.Wait pausiert jedoch die ganz Prozedure.
Kann man dies ebenso mit einem Befehl erreichen?
Grüße
Peter
Sub kopieren17302200()
With ActiveWorkbook
ActiveWorkbook.RefreshAll
Application.Wait (Now + TimeValue("0:00:10"))
.Worksheets("1730-2200").Range("d1:e30").Copy
.Worksheets("1730-2200").Range("g1").PasteSpecial Paste:=xlValues
End With
End Sub