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

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

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

Bild


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).


Bild


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!


Bild


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


Bild

Beiträge aus den Excel-Beispielen zum Thema " PDF /Acrobat Reader steuern"