Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

prüfen, ob Datei bereits geöffnet ist

Betrifft: prüfen, ob Datei bereits geöffnet ist von: Mike E.
Geschrieben am: 03.09.2004 20:20:36

Hallo zusammen,

ich öffne per Makro eine Datei. U.U. ist diese Datei jedoch schon geöffnet...
Nun möchte ich dieses Ereigneis mit einer Fehlermeldung abfangen und das erneute Öffnen besagter Datei verhindern...etwa so:

Sub Öffnen()

Dim Pfad as String, DateiName As String

Pfad = "Irgendwas"
DateiName = "AuchIrgendwas"

If Workbooks(DateiName)...bereits geöffnet Then

   MsgBox("Datei bereits geöffnet"): Workbooks(DateiName).Activate

Else
  
   Workbooks.Open Filename:=Pfad & DateiName

End If

End Sub


Falls jemand helfen mag, freue ich mich sehr darüber. Ansonsten:

ein entspanntes Wochenende von
Mike
  


Betrifft: AW: prüfen, ob Datei bereits geöffnet ist von: Dieter Maj
Geschrieben am: 03.09.2004 20:26:03

Hallo Mike
so gehts:

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

'Beispiel:
'If MAPPEOFFEN("bbbbb.xls") = False Then
' Workbooks.Open FileName:=ThisWorkbook.Path & "\bbbbb.xls"

PS:
Das Forum lebt auch von Rückmeldungen


  


Betrifft: AW: prüfen, ob Datei bereits geöffnet ist von: Mike E.
Geschrieben am: 03.09.2004 20:30:42

Hallo Dieter,

fein. Darauf wäre ich nun wirklich nicht gekommen.

Meinen Dank und schöne Wochenendswünsche hast du sicher!

Mike


  


Betrifft: AW: prüfen, ob Datei bereits geöffnet ist von: torsten k
Geschrieben am: 03.09.2004 20:52:54

auch so ein entspanntes wochenende

;-))

torsten aus`n trittau


  


Betrifft: AW: prüfen, ob Datei bereits geöffnet ist von: Mike E.
Geschrieben am: 03.09.2004 20:54:33

Danke! Was treibst du bei Herber? Hättest ja auch mal helfen können.
Laß' mal auf Mail umschalten!


  


Betrifft: AW: prüfen, ob Datei bereits geöffnet ist von: ypsilon
Geschrieben am: 03.09.2004 20:32:56

hi Mike,
so in etwa müsste das gehen:

For i = 1 To Workbooks.Count
If Workbooks(i).Name = Dateiname Then
MsgBox "Die Datei " & Dateiname & "ist bereits offen" : Exit Sub
Else
'deine anweisungen
End If
Next i

cu Micha


  


Betrifft: ja ich bin zu langsam :-( von: y
Geschrieben am: 03.09.2004 20:34:45

*grummel*


  


Betrifft: AW: ja ich bin zu langsam :-( von: Dieter Maj
Geschrieben am: 03.09.2004 20:37:21

Hallo Y
schon der frühere russische Präsident (der mit dem Schuh auf das Pult geschlagen hat) sagte:
Wer zu spät kommt, den bestraft das Leben

Grüsse aus Bayern an der Donau
Dieter


  


Betrifft: AW: ja ich bin zu langsam :-( von: y
Geschrieben am: 03.09.2004 20:40:21

hi Dieter,
war das nicht eher der andere russische präsident mit der hohen stirn ?

grüsse aus der hauptstadt
Micha


  


Betrifft: AW: ja ich bin zu langsam :-( von: Dieter Maj
Geschrieben am: 03.09.2004 20:43:58

hi Y
kann schon sein, aber ist ja völlig egal, Spass muss sein trotz VBA und Excel
Gruß Dieter


  


Betrifft: immer so? von: knot
Geschrieben am: 04.09.2004 05:53:26

oder?


  


Betrifft: AW: prüfen, ob Datei bereits geöffnet ist von: Mike E.
Geschrieben am: 03.09.2004 20:36:41

Hey Micha,

nein, bist Du nicht! Denn auch das ist eine prima Lösung (auf die übrigens auch ich bei meinem angegebenen Level hätte kommen müssen).

Somit auch Dir den Dank und das schöne Wochenende!

Mike


 

Beiträge aus den Excel-Beispielen zum Thema "prüfen, ob Datei bereits geöffnet ist"