Merkwürdiges (schwieriges?) Problem
29.07.2003 09:38:56
Franz W.
ich stolpere grad über ein extrem merkwürdiges Ding. Mit folgendem Code, den ich hier von Boris bekommen habe, prüfe ich ob eine Datei schon geöffnet ist, wenn nicht soll sie geöffnet werden.
On Error Resume Next
Set sWb = Workbooks("RECHNUNGEN_EH.xls")
If Not IsObject(sWb) Then Workbooks.Open _
Filename:="E:\bernhard\ENERGIE_HAUSGEMACHT\RechnungenEH\RECHNUNGEN_EH.xls"
On Error GoTo 0
Im Zusammenhang in einem längeren Makro klappt's auch.
Nun möchte ich nur diesen CodeTeil verwenden, um eine Datei zu öffnen falls sie noch nicht geöffnet ist:
Sub Open_RechnungenEH()
On Error Resume Next
Set sWb = Workbooks("RECHNUNGEN_EH.xls")
If Not IsObject(sWb) Then Workbooks.Open _
Filename:="E:\bernhard\ENERGIE_HAUSGEMACHT\RechnungenEH\RECHNUNGEN_EH.xls"
On Error GoTo 0
End Sub
Das Makro klappt jedesmal, wenn die Datei zu ist und geöffnet werden muss.
Rufe ich das Makro auf, wenn die Datei RECHNUNGEN_EH schon geöffnet ist, tut sich nichts, ist klar.
Schließe ich die Datei RECHNUNGEN_EH daraufhin und rufe dann das Makro erneut auf, klappt's nicht mehr !! Die Datei RECHNUNGEN_EH wird nicht mehr geöffnet !!
Schließe und öffne ich die Datei, in der das Makro drin steht, dann geht's wieder!!
Muss da irgendwo irgendwas zurückgesetzt werden? Oder woran kann das liegen?
Vielen Dank schon mal
Grüße
Franz