Zusätzliche offene Anwendungen außer Excel erkenne
15.10.2012 22:06:43
Albert
ich bin auf der Suche nach einem VBA Code, der erkennt, ob außer Excel auch andere Anwendungen offen sind.
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 SS()
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
Anzeige