Ich habe folgenden Code, um mich im SAP anzumelden und dann in das Programm SQ01 zu wechseln:
Option Explicit
Sub SAP()
Dim SAPLogon
SAPLogon = Shell("C:\Programme\Sappc46d\sapgui\saplogon.exe", 1)
AppActivate SAPLogon
SendKeys "{tab}"
SendKeys "~"
Application.Wait TimeValue(Now) + TimeValue("00:00:11")
SendKeys "Fuhrmann"
SendKeys "{tab}"
SendKeys "Passwort"
SendKeys "~"
Application.Wait TimeValue(Now) + TimeValue("00:00:11")
SendKeys "^{tab}"
SendKeys "sq01"
SendKeys "~"
End Sub
Ich denke das ist etwas unglücklich mit der Wait - Funktion und vielleicht geht das auch besser als mit der senkkeys - anweisung?!
Kann mir da vielleicht jemand weiter helfen?
Gruß
F.