Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
220to224
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
220to224
220to224
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA-Überprüfung ob Datei bereits geöffnet

VBA-Überprüfung ob Datei bereits geöffnet
20.02.2003 09:22:01
Jörn
Hallo!
Wie kann ich mit VBA überprüfen ob die Datei Müller.xls bereits geöffnet ist? Wenn nicht will ich sie mit einem If-Tag öffnen, dazu brauche ich aber eine Abfrage, die mir den Wert True oder False liefert.
MfG
Jörn

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: VBA-Überprüfung ob Datei bereits geöffnet
20.02.2003 09:31:00
Bernd Held

Hallo Jörn,

das gelingt Dir mit dieser Lösung:
Function MappeOffen(s As String) As Boolean
On Error GoTo fehler
MappeOffen = True
Windows(s).Activate
Exit Function

fehler:
MappeOffen = False
End Function

Sub ArbeitsmappeÖffnen()
Dim B As Boolean
Const Datei = "Mappe1.xls"

B = MappeOffen(Datei)
If B = False Then
Workbooks.Open Datei
Else
'Tue nichts weiter..
End If
End Sub

Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA in 21 Tagen mit Leseprobe(PDF) unter: http://held-office.de



Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige