' hWnd Ermitteln
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
' Fenster in  der Vordergrund holen
Private Declare Function SetForegroundWindow Lib "user32" _
  (ByVal hwnd As Long) As Long

Dim lhWnd As Long
 
lhWnd = FindWindow(vbNullString, "Dein Anwendungstitel")
If lhWnd > 0 Then
   SetForegroundWindow lhWnd 'Fenster Aktivieren
   SendKeys "{ENTER}" ' Tasten senden
End If

Cu

Wolfgang