If-Anweisung zur Überprüfung ob best. Datei schon

• If-Anweisung zur Überprüfung ob best. Datei schon von Hering vom 25.11.2003 12:46:41
  • AW: If-Anweisung zur Überprüfung ob best. Datei schon - von WernerB. am 25.11.2003 12:52:06
    • AW: If-Anweisung zur Überprüfung ob best. Datei schon - von Hering am 25.11.2003 13:08:37
    • AW: If-Anweisung zur Überprüfung ob best. Datei schon - von Hering am 25.11.2003 16:56:02

Betrifft: If-Anweisung zur Überprüfung ob best. Datei schon
von: Hering
Geschrieben am: 25.11.2003 12:46:41
hallo,
wahrscheinlich nur eine kleinigkeit - ich steh im moment auf`m schlauch!
ich will aus datei1 heraus eine abfrage innerhalb eines makros machen, die überprüft, ob datei 2 schon geöffnet ist.
please heeeeeelp....

ein hering

Betrifft: AW: If-Anweisung zur Überprüfung ob best. Datei schon
von: WernerB.
Geschrieben am: 25.11.2003 12:52:06
Hallo Hering,

das geht z.B. mit diesem Makro und der dazugehörigen benutzerdefinierten Funktion:

Function MappeOffen(MappeName As String) As Boolean
Dim StName As String
On Error GoTo Nonexistent
StName = Workbooks(MappeName).Name
MappeOffen = True
Exit Function
Nonexistent:
MappeOffen = False
End Function

Sub DateiZustand1()
Dim DatNam As String
DatNam = "MappeA.xls"
If MappeOffen(DatNam) = True Then
MsgBox "Datei ist geöffnet !"
Else
MsgBox "Datei ist nicht geöffnet !"
End If
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).

Betrifft: AW: If-Anweisung zur Überprüfung ob best. Datei schon
von: Hering
Geschrieben am: 25.11.2003 13:08:37
hallo wernerB,
danke für die schnelle lösung. werde es später ausprobieren. die lösung scheint aber einfach und logisch, hätte ich auch selber drauf kommen können.
bedankt...

ein hering

p.s.: werde mich nach dem test wieder melden!

Betrifft: AW: If-Anweisung zur Überprüfung ob best. Datei schon
von: Hering
Geschrieben am: 25.11.2003 16:56:02
hallo wernerB,
alles ist gut.
vielen dank

gruß
ein hering