Offene Anwendungen erkennen
29.10.2012 20:03:04
Albert
ich habe diese Frage schon einmal ins Forum gestellt und auch einen Link für einen sehr umfangreichen Lösungsansatz bekommen = eine Art TaskManager in Excel. Kann ich jedoch nicht für meine Zwecke einsetzen.
Ich bin auf der Suche nach einem VBA Code, der erkennt, ob außer Excel auch andere Anwendungen offen sind, zumindest sollten der Explorer und ein offener Browser erkannt werden.
Ich habe eine Code, der eine zweite offene Exceldatei erkennt, ich schaffe es aber nicht, diesen so zu erweitern dass er auch andere offene Anwendungen erkennt.
Sub OAp()
Application.ScreenUpdating = False
Dim Wb As Workbook, Ap As Application
For Each Wb In Application.Workbooks
If Wb.Name ThisWorkbook.Name Then MsgBox ("Zweite Exceldatei offen")
Next Wb
End Sub
Danke, Albert