ich habe folgenden Code zum Starten eines Externen Programm gefunden:
Private Sub CommandButton1_Click()
On Error GoTo zError
Dim xxx As Long
Application.SendKeys "{EINGABE}", True
xxx = Shell("?.exe", vbMaximizedFocus)
Application.SendKeys ("%F"), True
Application.SendKeys ("%1"), True
Exit Sub
zError:
MsgBox "Fehler!", , "Datei öffnen"
End Sub
Jetzt ist es aber so, daß das Prog. jedesmal geöffnet wird. Wie kann ich das Programm aber nur aktivieren, wenn es schon geöffnet ist, bzw wie kann ich das vorher prüfen?
Gruss Dennis