Fensterverwaltung ab Excel 2013
12.05.2016 13:46:43
Michael
Ich möchte an dieser Stelle kurz mal meine Erfahrung mit der Fensterverwaltung ab Office 2013 posten.
In meinen Programmen öffne ich per VBA andere Dateien, lese diese aus und schließe sie wieder. Seit XL2013 erscheinen ständig neue Fenster vor dem Hauptfenster, die den Arbeitsfluss erheblich stören, da man sie nur minimieren kann. Schließen der Fenster schließt auch das Hauptprogramm. Bei 2 Monitoren erscheinen die neuen Fenster zudem auf dem anderen Monitor und in einer anderen Fenstergröße. Das hat Auswirkungen auf das Hauptprogramm. Beende ich es und öffne es wieder, erscheint es danach auch auf dem anderen Monitor in der kleineren Größe und man muss es immer manuell anpassen und verschieben.
Diese Fenster kann man folgendermaßen ausblenden:
Nach dem
Workbooks("Muster.xls").Open
das neue Fenster mit
Application.visible=false
für die weiteren Arbeitsschritte ausblenden. Das Schließen mit
Workbooks("Muster.xls").Close
erzeugt nun ein leeres Fenster, welches im Vordergund steht. Statt nur
Workbooks("Muster.xls").Close
zu verwenden, läßt
Dateiname=AktiveWorkbook.Name
Windows(Dateiname).WindowState=xlMinimized
Workbooks(Dateiname).Close
application.visible=false
das Fenster komplett verschwinden. Die Visible Eigenschaft greift nur auf das genannte Fenster, nicht auf das Hauptprogramm.
Ich hoffe, es hilft einigen.
VG
Michael H