Weitere Arbeitsmappe minimiert öffnen

Hallo Wissende,

ich möchte im Rahmen eines VBA-Codes eine weitere Arbeitsmappe öffnen, um dort Daten auszulesen. Es soll dabei aber nicht das aktuve Fenster wechseln. Wenn ich nun (beispielsweise) schreibe
Dim Wstat as Excel.Workbook
Set Wstat = Application.Workbooks.Open („H:\statistik.xls“)
ActiveWindow.WindowState = xlMinimized
Set xlTab = Wstat.Worksheets(„Statistik 2012“)
Datenimport = xlTab.cells(1,1)

geht das im Prinzip. Das Problem ist nur, dass er erst minimalisiert, wenn die Datei geöffnet ist. Während der Öffnung dieser großen Datei ist dies Fenster ein paar Sekunden aktiv. Wie kann man noch vor dem Öffnen sagen, dass der Fokus sich nicht ändern soll? Den Minimize-Befehl kann ich nicht vorziehen, da er sich auf das zu öffnende Objekt bezieht.

Vielen Dank

Hans-Jürgen

Hallo Unwissender :wink:

Wie kann man noch vor dem Öffnen sagen, dass der Fokus

sich nicht ändern soll? Den Minimize-Befehl kann ich nicht
vorziehen, da er sich auf das zu öffnende Objekt bezieht.

ich würde folgendes vorschlagen:
deaktiviere am Anfang (und aktiviere am Ende) des Programms die Bildschirmaktualisierung mit

Application.ScreenUpdating = False
’ Datei minimiert öffnen
’ Fokus auf aktuelle Datei wieder geben
Application.ScreenUpdating = True

ungetestet, aber klingt logisch und funktionierbar :wink:

LG Tobi@s