Ich habs... zeitgesteuert ;)


Sub starten()
Dim zeit As String
t = True
zeit = Time + TimeSerial(0, 0, 15)
Application.OnTime zeit, "ausführen_meldung"
End Sub

Sub ausführen_meldung()

Dim strFileName As String
Dim strPath As String
Dim strTMP As String
strFileName = "Test.txt"
strPath = "d:\"
strTMP = FindFile(strPath, strFileName)
If strTMP <> "" Then
Run "Ereignis"
Else
MsgBox "Nein!"
End If
If t = True Then starten
End Sub

Sub beenden()
t = False
End Sub

Sub Ereignis()
MsgBox "Ja!"
End Sub