Office: Arbeitsmappe mit VBA öffnen - Fehler

Grüße Euch!

Wieder mal ein kleines Problemchen welches höheres Wissen benötigt um gelöst zu werden...

Ich öffne über VBA eine Arbeitsmappe mit

Workbooks.open ("pfad")

funktioniert soweit auch ganz gut, ausser wenn die Arbeitsmappe bereits offen ist, er sie mit diesem Befehl erneut öffnet und damit alle Änderungen verworfel werden.

Wie kann ich ihm sagen dass er nur öffnen soll wenn die Mappe nicht schon bereits offen ist?

Danke wiedermal!
Grüße

 

Hallo!

Teste mal sowas, indem du alle bisher geöffneten Mappen checkst:

Code:

Sub test()
Dim wb As Workbook, x As Boolean
Const NameDerMappe = "irgendwas.xls"
Const Pfad = "C:\Excel\"
x = False
For Each wb In Application.Workbooks
If wb.Name = NameDerMappe Then x = True
Next wb
If x Then
MsgBox "Die Mappe ist schon geöffnet."
Else
Workbooks.Open Pfad & NameDerMappe
End If
End Sub

 

Also wenn die Windows Hilfe nur ein drittel so viel aufschlussreiche Auskunft geben würde wie du, glaub die Leute hätten keine PC Probleme mehr :-D
Funktioniert prima!

Danke!