SUb startet nicht automatisch
06.07.2022 09:27:54
Juli
Ich habe folgenden Code in meiner Arbeitsmappe hinterlegt, im Objekt "Diese Arbeitsmappe"
Sub AutoSchließen()
Dim dteBeginn As Date
Dim dtePause As Date
dteBeginn = Timer
dtePause = 20
Do Until Timer > dteBeginn + dtePause
DoEvents
Loop
ThisWorkbook.Close savechanges:=True
End Sub
Aber er läuft nicht automatisch an, wenn ich einfach nur die Mappe öffne und dann eben die 20 Sek. untätig bleibe (auch nach 10 Min. nicht)
Hat jemand eine Idee, woran es liegen kann? Ist es doch das falsche Objekt?
Die Datei liegt auf einem Sharepoint, "arbeitet" da irgendetwas im Hintergrund, so dass die Pause gar nicht erst entsteht?
Vielen dank schon mal
Juli