ich überprüfe mit folgendem Makroteil, ob ein Workbook geöffnet ist und öffne es, wenn nicht:
Set ExcelApp = GetObject(, "Excel.Application")
Set mydocs = ExcelApp.Workbooks
For Each x In mydocs
If x.Name = "Übersicht Projekte aktuell_Angebote.xls" Then GoTo WorkbookOpen
Next x
Workbooks.Open Filename:= _
"F:\04_PSP-A26\Projektbearbeitung\Übersicht Projekte aktuell_Angebote.xls"
Set x = Workbooks("Übersicht Projekte aktuell_Angebote.xls")
WorkbookOpen:
x.Activate
Solange das gesuchte WB zu ist, oder es im selben Excel-Fenster geöffnet ist, wie das aktuelle WB, funktioniert das auch prima. Sobald "Übersicht Projekte aktuell_Angebote.xls" aber in einem anderen Fenster geöffnet ist, kommt o. g. Fehlermeldung. Wo liegt mein Fehler?
Zum Hintergrund: Da ich im Büro mit zwei Bildschirmen arbeite, habe ich eingestellt, das Excel jedes neu geöffnete File in einem neuen Fenster öffnet, da ich sehr oft Tabellen vergleichen, bzw. von einer in die andere kopieren muss.