AppActivate & Nummernblockphänomen
Mario
vielleicht hat jemand ja einen Lösungsansatz / Erklärung für folgendes Problem.
Per Shell öffne ich ein Programm. Ist in der Zelle C11 ein Wert gesetzt, schließe ich das Programm direkt wieder per Sendkey (Alt+F4).
Hier der Auszug aus meinem code:
....
Status = Shell("C:\Programm.exe", 1)
If ActiveSheet.Range("C11").Value = True Then
AppActivate Status
SendKeys "%{F4}", True
End if
Gehen wir von True aus - die Bedingung ist also erfüllt und Programm.exe soll direkt wieder geschlossen werden.
Frage 1) wieso schaltet sich dann der Nummernblock nach Ausführen des Codes manchmal ein bzw. aus?
Frage 2) Excel ist deaktiviert und lässt sich nur per Mausklick wieder aktivieren. Kann ich die Task-Id der Arbeitsmappe welche meinen Code enthält irgendwie auslesen und dann per AppActivate wieder aktivieren? AppActivate ("Microsoft Excel") und ähnliche Versuche funktionieren nicht.
Vielen Dank!
mario