Aktualisierung Bezüge - Worksheet versteckt öffnen
04.03.2014 12:57:10
Tom
Nach dem Fertigstellen von Änderungen an der haupt.xlsx und schließen der Datei - soll sich auch die neben.xlsx autonom speichern und schließen.
Ich habe dazu im Forum aus 2002 eine Lösung gefunden, die leider nicht ganz funktioniert.
1. Teil mit dem verstecken öffnen WkbOpenInvisible() funktl.
2. Teil mit dem schließen und speichern gibt immer Laufzeitfehler 9 (Index liegt außerhalb des gültigen Bereichs) aus.
Ich habe schon rausgefunden, dass die Zeilen mit Windows(strWindowName)....
den Fehler auslösen. Desweiteren alles was mich workbook.(datei).close oder ähnlichem zusammenhängt.
Weiß jemand wo der Fehler ist ?
Danke
Code:
Sub WkbOpenInvisible()
'Bildschirmaktualisierung ausschalten
Application.ScreenUpdating = False
'Anzeige der Fenster in Taskleiste ausschalten
Application.ShowWindowsInTaskbar = False
'Mappe öffnen
Workbooks.Open "D:\Unsichtbar.xls"
'Fenstertitel in Varibale einlesen
strWindowName = ActiveWindow.Caption
'Fenster (Mappe) ausblenden
Windows(strWindowName).Visible = False
'Anzeige der Fenster in Taskleiste wieder einschalten
Application.ShowWindowsInTaskbar = True
'Bildschirmaktialisierung einschalten
Application.ScreenUpdating = True
End Sub
Sub WkbVisible()
'Ausgeblendete Mappe einblenden
Windows(strWindowName).Visible = True
'oder ausgeblendete Datei schließen
Windows(strWindowName).Close SaveChanges:=False
End Sub
Anzeige