Habe es aber tatsächlich gestern auch noch selbst hinbekommen wobei deine Lösung schöner ist als meine

Code: Alles auswählen
Sub autostart
Dim ObjShell
Set ObjShell= CreateObject("WScript.Shell")
ObjShell.SendKeys "{F5}"
end sub
Code: Alles auswählen
Sub autostart
Dim ObjShell
Set ObjShell= CreateObject("WScript.Shell")
ObjShell.SendKeys "{F5}"
end sub