Hallo Freunde,
ich habe mit Absicht eine Endlosschleife konstruiert, damit meine Tabelle jede Minute automatisch gespeichert wird.
Private Sub CommandButton1_Click()
On Error GoTo ErrorCheck
Application.OnTime Now() + TimeValue("00:01:00"), "Tabelle1.CommandButton1_Click"
ActiveWorkbook.Save
Cells(1, 1) = ""
Exit Sub
ErrorCheck:
Cells(1, 1) = "Error"
End Sub
Nur laesst sich diese Schleife nicht vernünftig stoppen. Auch Shortcuts wie Esc oder Strg + Untbr funktionieren nicht.
Kann mir bitte jemand weiterhelfen.
Gruss Ray
|