Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
352to356
352to356
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Prüfen ob eine best. Excelmappe offen ist

Forumthread: Prüfen ob eine best. Excelmappe offen ist

Prüfen ob eine best. Excelmappe offen ist
15.12.2003 09:43:31
Jens
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
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Prüfen ob eine best. Excelmappe offen ist
15.12.2003 09:49:35
WernerB.
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).
Anzeige
AW: Prüfen ob eine best. Excelmappe offen ist
15.12.2003 10:29:06
Jens
Hallo Werner,

vielen Dank für deine schnelle Antwort.

Gruß Jens
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige