21.06.2017, 07:31
Folgender Code...
...aktiviert das Programm, deren Titel im definierten Feld eingegeben ist und sendet Benutzernamen und Passwort von "person_1" an das Formular und bestätigt mit ENTER.
Soweit funktioniert das super!
Wenn das Programm minimiert in der Taskleiste ist, funktioniert das leider nicht.
Dafür hätte ich gerne noch eine Lösung.
Hätte jemand von euch einen Ratschlag?
Code:
Sub person_1()
v1usr = Range("Datenbank!D3").Value
v1pw = Range("Datenbank!E3").Value
v1titl = Range("Datenbank!D108").Value
AppActivate v1titl
SendKeys v1usr, True
SendKeys ("{TAB}"), True
SendKeys ("{BACKSPACE}"), True
SendKeys v1pw, True
SendKeys ("~"), True
End Sub
...aktiviert das Programm, deren Titel im definierten Feld eingegeben ist und sendet Benutzernamen und Passwort von "person_1" an das Formular und bestätigt mit ENTER.
Soweit funktioniert das super!
Wenn das Programm minimiert in der Taskleiste ist, funktioniert das leider nicht.
Dafür hätte ich gerne noch eine Lösung.
Hätte jemand von euch einen Ratschlag?