Ausblenden von geöffneten Arbeitsmappen
26.01.2004 16:49:35
Geist
Ich möchte mehrere Dateien öffnen und diese gleich ausblenden. Ich mache das so:
Application.ScreenUpdating = False
For j = 1 To intCounter
Workbooks.Open strPath & strFiles(j)
ActiveWindow.Visible = False
Next
In der TextVariable strFiles(j) sind sind die Dateinamen abgespeichert, in strPath der Pfad und intcounter ist die Zahl der Dateien, die es gibt. Geöffnet werden die Dateien, dies funktioniert, wenn ich die Zeile ActivWindow.visible=false auskommentiere. So wie das Makro dasteht, gibt es aber einen Fehler (Objektvariable oder with-Blockvariable nicht definiert).
Ich dachte zuerst, es liege daran, dass es an Application.ScreenUpdating = False liegen könnte, aber auch wenn ich diese Zeile lösche, geht es nicht.