Frohe Ostern,
ich habe ein Makro das überprüft ob eine Datei schon offen ist, wenn nicht wir diese geöffnet. Das funktioniert aber nur wenn die Datei auf "C" ist. Sind Verzeichnisse dazwischen funktioniert das Makro nicht. Ich füge den Code mal ein. Schonmal vielen Dank.
Gruß Claus
Sub Datei_öffnen()
' Beispiel: C:\MAPPE2.XLS (richtig!) öffnen
Dim bExists As Boolean
Dim oWorkbook As Object
' Prüfen ob Datei bereits geöffnet ist
bExists = False
With Application
For Each oWorkbook In .Workbooks
If UCase$(oWorkbook.Name) = "MAPPE2.XLS" Then
' Jetzt aktivieren
Windows(oWorkbook.Name).Activate
bExists = True
MsgBox "Die Mappe ist bereits geöffnet !"
Exit For
End If
Next
End With
' Mappe neu laden!
If Not bExists Then
On Error Resume Next
Workbooks.Open Filename:="C:\Mappe2", ReadOnly:=False
On Error GoTo 0
End If
End Sub