Makro automatisch ausführen
21.01.2009 15:08:42
Weis
Ich möchte mit dem unten stehenden Makro eigentlich, dass alle 5 Sekunden eine Liste aktualisiert wird.
Leider führt es das Makro nur einmal aus. Was mache ich falsch?
Sub Timeshift()
Dim Antwort As Integer
Antwort = MsgBox("Soll die Liste automatisch aktualisiert werden?", vbYesNo, "")
If Antwort = 6 Then
Application.OnTime Now + TimeSerial(0, 0, 5), "Liste_Aktualisieren"
Else
Exit Sub
End If
End Sub