So wird das nix, Tobias -
Hier eine Möglichkeit zu prüfen, ob Excel schon läuft oder nicht:
Wenn ja, setze Referenz auf Objektvariable xlApp.
Wenn nein, erzeuge eine neue Instanz mit referenz auf Objektvariable xlApp.
Sub
GetOrSetObject()
Dim
xlApp
As
Excel.Application
On
Error
GoTo
FinishErr
Set
xlApp = GetObject(class:=
"Excel.Application"
)
xlApp.Visible =
True
xlApp.Quit
FinishErr:
Select
Case
Err.Number
Case
0
Case
429
Set
xlApp =
New
Excel.Application
Resume
Next
Case
Else
MsgBox Err.Number & vbCr & Err.Description, vbCritical,
"Autor informiert:"
End
Select
Set
xlApp =
Nothing
End
Sub