Textbox einblenden
02.08.2007 08:56:40
Andreas
und wieder offe ich auf Hilfe in diesem netten Forum.
Ich habe mir ein Makro gebastelt (bei meinen kenntnissen muss man sdas basteln nennen) das beim aufruf der Datei automatisch startet. Dieses lädt zwei Dateien, dann eine Dritte, diese aktualisiert ihre Daten, anschliessen werden datei 1, 2 und die Makrodatei geschlossen , die dritte bleibt zur Verwendung geöffnet.
Nun wäre es toll wenn wärtend der Ladezeit , also bis zum schliessen der Makrodatei ein Fenster geöffnet wäre "Etikettendruck startet - Aktualisierung läuft".
Hab leider keinen Plan wie ich das hinbekomme.
Hier mal das Makro:
Sub auto_open()
' stamm_umbau_Etiketten_starten()
' stammdatei_starten Makro
' Makro am 01.08.2007 von Kehr aufgezeichnet
Application.ScreenUpdating = False
Workbooks.Open Filename:= _
"\\Datsi\Datsi-Druck-Prod\Produktionsplanung\Planung\Stammdatei.xls"
ActiveWindow.Visible = False
Application.ScreenUpdating = True
' Umbauten_starten Makro
' Makro am 01.08.2007 von Kehr aufgezeichnet
Application.ScreenUpdating = False
Workbooks.Open Filename:= _
"\\Datsi\Datsi-Druck-Prod\Produktionsplanung\Planung\Umbauscheine.xls"
ActiveWindow.Visible = False
Application.ScreenUpdating = True
'wartezeit damit vorige dateien sicher geladen sind
Application.Wait Now + TimeValue("00:00:05")
' Etikettendruck_starten Makro
' Makro am 01.08.2007 von Kehr aufgezeichnet
Workbooks.Open Filename:= _
"\\Datsi\Datsi-Druck-Prod\Etikettendruck_SPR\Etikettendruck.xls"
'wartezeit vor schliessen
Application.Wait Now + TimeValue("00:00:05")
' stamm_umbau_schliessen Makro
' Makro am 01.08.2007 von Kehr aufgezeichnet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Workbooks("Umbauscheine.xls").Close
ThisWorkbook.Saved = True
Application.DisplayAlerts = False
Workbooks("Stammdatei.xls").Close
ThisWorkbook.Saved = True
Application.DisplayAlerts = False
Workbooks("Makro_Etikettendruck_SPR.xls").Close
ThisWorkbook.Saved = True
ActiveWindow.Visible = False
Application.ScreenUpdating = True
End Sub