Hello,
i import dates by csv-file Import, put it in formulas and draw a graph.
For updating i have a macro:
------------------------------------------------------------------
Private Sub M()
Application.OnTime Now + TimeSerial(0, 0, 10), "M"
ActiveWorkbook.RefreshAll
End Sub
------------------------------------------------------------------
Sub A()
Application.OnTime Now + TimeSerial(0, 0, 10), "M"
End Sub
-------------------------------------------------------------------
For updating by milliseconds i have a second Macro:
------------------------------------------------------------------------
Private Sub Makro1()
Dim OneMillisecond As Variant
OneMillisecond = CDec(TimeSerial(0, 0, 1) / 1000)
TenMilliseconds = OneMillisecond * CDec(1000)
Application.OnTime Now + TenMilliseconds, "Makro1"
ActiveWorkbook.RefreshAll
End Sub
---------------------------------------------------------------
Sub Start()
Dim OneMillisecond As Variant
OneMillisecond = CDec(TimeSerial(0, 0, 1) / 1000)
TenMilliseconds = OneMillisecond * CDec(1000)
Application.OnTime Now + TenMilliseconds, "Makro1"
End Sub
-----------------------------------------------------------------
Both macros works very well for updating the csv-file and for recalculation of the formulas, also for milliseconds.
Only my Graph will be updated for higher timeframes. For 10 seconds everything works fine. But if i go for 1 second or smaller, my Graph update didnt work
Maybe someone know this problem.
Regards
Tom
Bookmarks