Hallo,
ich möchte, daß wenn ich eine Excel-Tabelle öffne jede Sekunde die Felder aktualisiert werden.
Ich habe die Funktion:
und die Funktion:
Warum wird AutoOpen nicht automatisch ausgeführt?
siehe Anhang:
ich möchte, daß wenn ich eine Excel-Tabelle öffne jede Sekunde die Felder aktualisiert werden.
Ich habe die Funktion:
Code:
Sub AutoOpen()
aRun = True
Application.Calculate
Application.OnTime Now + TimeSerial(0, 0, 1), "Aktualisieren"
End Sub
und die Funktion:
Code:
Public Sub Aktualisieren()
If aRun = False Then Exit Sub
Application.Calculate
Application.OnTime Now + TimeSerial(0, 0, 1), "Aktualisieren"
End Sub
Warum wird AutoOpen nicht automatisch ausgeführt?
siehe Anhang: