VBA: Vergleichen von Ergebnissen

[|\/| E P H I S t 0]

Des weiteren funktioniert mein "Auto-Aktualisierungs-Makro" auch nicht so ganz wie ich mir das vorstelle:


---------------------------------------------------------------
Worksheets("Tabelle2").Range("A1").FormulaR1C1 = Now()
---------------------------------------------------------------

das sollte jede volle Sekunde ausgeführt werden. Mit GoTo oder Do Loop hat sich Excel jedoch immer aufgehängt:

---------------------------------------------------------------
Top:
Worksheets("Tabelle2").Range("A1").FormulaR1C1 = Now()
If Application.Wait(Now + TimeValue("0:00:01")) Then GoTo Top
---------------------------------------------------------------

was ja auch verständlich ist, da er in einer Endlos-Schleife landet.
Aber es muss doch möglich sein das mit geringe Systemleistung zu Automatisieren, oder?