Makro etwas ändern...
19.01.2004 18:09:34
klaus
Habe das Makro (unten) aus diesem Forum, passt aber noch nicht ganz zu meinen Anforderungen.
In einer automatisierten Abfolge soll die Datei TEST.xls automatisch nach einer Minute geschlossen werden.(...mit geplante Vorgänge klappt das Schließen leider nicht) Dazu schreibe ich das folgende Makro in eine andere Datei, die immer geöffnet ist, bzw. die ich noch zertifizieren werde. Das Problem ist nur, dass mir immer alle Excel-Dateien geschlossen werden, was aber nicht sein darf!
Was muß also verändert werden, damit nur TEST.xls geschlossen wird?
Hier das bisherige Makro:
*******************************************
´´´´In Diese Arbeitsmappe
Private Sub Workbook_Open()
Zeitablauf
End Sub
´´´´In Modul
Sub Zeitablauf()
Workbooks.Open "C:\Programme\Tools\TEST.xls"
Application.OnTime Now + TimeValue("00:01:00"), "ExcelAus"
End Sub
Sub ExcelAus()
Workbooks("TEST.xls").Saved = True
Application.DisplayAlerts = False
Application.Quit
End Sub
Schönen Dank schon jetzt, Klaus