Desöfteren läßt sich eine Mappe nicht schließen.
Andernfalls funktioniert es wieder einwandfrei.
Das Modul:
Sub MehrfachöffnungErkennen(DatNam)
If Workbooks.Count > 1 Then
Meldung10
ActiveWorkbook.Close
End Sub
In der Hoffnung, daß eine der Anweisungen ja mindestens laufen müßte, habe Ich dann ein Testmodul zusammengestellt, indem ich alle nachfolgenden Anweisungen ablaufen lasse.
ActiveWorkbook.Close
ThisWorkbook.Close
Workbooks("Mappenname.XLS").Close SaveChanges:=False
Workbooks("Mappenname.XLS").Close
Wahlweise habe ich dieses Modul per Schaltfläche oder andernfalls zu Fuß gestartet.
Es tut sich nichts.
Das Modul wird ohne Fehlermeldung und ohne Reaktion durchlaufen.
Da es manchmal jedoch geht, vermute ich, daß die Ausführung irgendwo im Prg blockiert wird.
Da Dieses jedoch fast 50 DINA4-Seiten Umfang hat, und ich mir den Fehlerursprung auch nicht annähernd erklären kann, ist es natürlich auch wenig sinnvoll, das gesamte Prg hier darzustellen.
Gibt es hierfür Grundsätzliche Fehlerursachen ?
Bin für jede Anregung dankbar.
Gruß
Bernhard