Prüfen ob eine best. Excelmappe offen ist

• Prüfen ob eine best. Excelmappe offen ist von Jens vom 15.12.2003 09:43:31
  • AW: Prüfen ob eine best. Excelmappe offen ist - von WernerB. am 15.12.2003 09:49:35
    • AW: Prüfen ob eine best. Excelmappe offen ist - von Jens am 15.12.2003 10:29:06

Betrifft: Prüfen ob eine best. Excelmappe offen ist
von: Jens
Geschrieben am: 15.12.2003 09:43:31
Hallo,

ich möchte per VBA prüfen, ob eine bestimmte Excel-Mappe geöffnet ist. Wie kann ich das machen?? Evtl. Beispiel-Code wäre klasse, da ich noch ein Anfänger bin.

Dank und Gruß Jens

Betrifft: AW: Prüfen ob eine best. Excelmappe offen ist
von: WernerB.
Geschrieben am: 15.12.2003 09:49:35
Hallo Jens,

das kannst Du mit diesem Makro und der dazugehörigen Funktin herausfinden:

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: Prüfen ob eine best. Excelmappe offen ist
von: Jens
Geschrieben am: 15.12.2003 10:29:06
Hallo Werner,

vielen Dank für deine schnelle Antwort.

Gruß Jens