Code Snippet "VBA Excel"

Webqueries mit Timer aktualisieren (erlaubt Abstände von weniger als einer Minute)

Sub procWebqueryAktualisieren()
'
' WebqueryAktualisieren Makro
  Dim objQT As QueryTable
  Set objQT = Sheets("Währungen").QueryTables(1)
  If MsgBox("Webquery aktualisieren?", vbOKCancel) = vbOK Then
    objQT.Refresh
    Application.OnTime Now + TimeValue("00:00:15"), "procWebqueryAktualisieren"
  End If
End Sub