Auf Fertigstellung der Aktualisierung warten
Ralf
ich möchte eine Tabelle mit Aktienkursen aus dem Internet nachträglich mit Makro formatieren.
Dummerweise wartet das Makro nicht auf die Fertigstellung der Datenaktualisierung. Die Aktualisierung wird angestossen, dann die Formatierung ausgeführt, dann die Aktualisierung abgeschlossen und die Formatierung ist wieder in der alten Form.
Sub Daten_aktualisieren()
'--- Bildschirmaktualisierung aus
Application.ScreenUpdating = False
'--- Daten aktualisieren und warten bis Aktualsierung abgeschlossen ist
Sheets("Intraday").Select
ActiveWorkbook.RefreshAll
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 10
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
If Application.Wait(Now + TimeValue("0:00:10")) Then
MsgBox "Time expired"
End If
'--- Tabellenblatt Intraday aktualisieren
End Sub
Viele Grüße
Ralf