Prüfen ob bestimmte Anwendung bereits offen

[guenther-st]

Hallo Excelianer,

gibt es eine Möglichkeit, beim Öffnen der Anwendung "AAA.xls" zu prüfen, ob bereits die Anwendung "XXX.xls" geöffnet ist?

Wenn nein - dann möchte ich die Anwendung "AAA.xls" ganz normal öffnen (ohne Hinweis).

Wenn ja - dann möchte ich einen Hinweis in irgendeiner Form (z.B. "Anwendung XXX.xls ist bereits geöffnet - bitte später versuchen" und die Beendigung des Öffnungsprozess von "AAA.xls".

Wer kann mir da bitte weiterhelfen?

Viele Grüße
Günther

(Excel2003 im Einsatz)

[Peter]

Hallo,

hilft dir das weiter?

http://www.online-excel.de/excel/singsel_vba.php?f=54

http://www.office-loesung.de/ftopic118311_0_0_asc.php

[guenther-st]

Hallo Peter,

nicht so richtig.

Ich habe versucht, folgenden Code mal zu testen, aber er meckert mir "IsWorkbookOpen" als Fehler an (Fehler beim Kompilieren - SUB oder Function nicht definiert).

Gibt es diesen Befehl bei Excel2003 noch nicht oder was könnte der Grund sein?

-------------------

Sub test()
If IsWorkbookOpen("XXX.xls") Then
MsgBox "OFFEN"
Else
MsgBox "Nicht offen"
End If
End Sub

Servus
Günther

[guenther-st]

Hallo Peter,

Kommando zurück - habe Function "IsWorkBookOpen" vergessen zu definieren.
Jetzt funktioniert es. Danke für den Hinweis.

Servus Günther