Dim oExcel As Object
 
On Error Resume Next
Set oExcel = GetObject(, "Excel.Application")
If Err.Number <> 0 Or oExcel Is Nothing Then
  MsgBox "Excel wird nicht ausgeführt"
Else
  MsgBox "Excel wird aktuell ausgeführt"
End If
Set oExcel = Nothing
On Error GoTo 0

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de