ich möchte aus einem Makro in Excel ein externes Programm starten und auch Excel warten lassen bis es fertig ist(Programm schließt automatisch).
Wie muß ich das programmieren
Vielen Dank
Dietmar Gröger
Private Sub CommandButton75_Click()
On Error GoTo zError
Dim xxx As Long
Application.SendKeys "{EINGABE}", True
xxx = Shell("C:\Programme\Dom.exe", vbMaximizedFocus)
Application.Wait (Now + TimeValue("00:00:06"))
Application.SendKeys ("%SO"), False
Exit Sub
zError:
MsgBox "Fehler!", , "Datei öffnen"
End Sub