Nachschauen, ob eine Datei schon offen ist

• Nachschauen, ob eine Datei schon offen ist von cabbydit vom 26.11.2003 09:20:36
  • AW: Nachschauen, ob eine Datei schon offen ist - von Matthias G am 26.11.2003 09:37:39
    • AW: Nachschauen, ob eine Datei schon offen ist - von cabbydit am 26.11.2003 10:19:33
      • AW: Danke für die Rückmeldung - o.T. - von Matthias G am 26.11.2003 10:34:12

Betrifft: Nachschauen, ob eine Datei schon offen ist
von: cabbydit
Geschrieben am: 26.11.2003 09:20:36
Hallo,
vielleicht habe ich ja eine Blockade, aber das genannte Problem will einfach nicht funzen:

Der Thread von Hering läuft nicht, vielleich kann ihn mir ja jemand übersetzen:

Folgendes soll passieren:

Wenn Test1.xls offen, dann msgbox "test1.xls ist offen, sonst msgbox "test1.xls ist nicht offen

Ist wahrscheinlich ganz einfach, aber ist habe da einen Synapsenstau, es will einfach nicht klappen.

Danke im voraus´, cabbydit

Betrifft: AW: Nachschauen, ob eine Datei schon offen ist
von: Matthias G
Geschrieben am: 26.11.2003 09:37:39
Hallo ?? (Realname wäre nett),
folgende Funktion macht das:

Function MappeOffen(n As String) As Boolean
MappeOffen = False
Dim wb
For Each wb In Workbooks
If UCase(wb.Name) = UCase(n) Then MappeOffen = True
Next
End Function

Gruß,
Matthias

Betrifft: AW: Nachschauen, ob eine Datei schon offen ist
von: cabbydit
Geschrieben am: 26.11.2003 10:19:33
Hi, habe es mittlerweile hinbekommen, sieht ähnlich aus.
Trotzdem danke und viele Grüße,
Andre

Betrifft: AW: Danke für die Rückmeldung - o.T.
von: Matthias G
Geschrieben am: 26.11.2003 10:34:12
-