Ich habe eine MsgBox (Auswahl OK/Abbrechen)
Wie kann ich diese nach 5 sekunden automaisch schließen (Abbrechen betätigen) wenn keine Auswahl erfolgt?
a = MsgBox("Datei öffnen ?", vbOKCancel)
If a = 1 Then
Workbooks.Open ("C:Datei.xls")
End If
So könnte man ja was Zeitgesteuert Starten .... aber ich weiß nicht wie
On Error Resume Next
Application.OnTime EarliestTime:=Data, Procedure:="Aktion", Schedule:=False
Data = Now + CDate("00:00:05")
Application.OnTime Data, "Aktion"
Danke