Guten Tag,
ich wollte mir einen klick sparen und eine Datei (die auch Makros enthält) über ein anderes Makro öffnen.
Die erste Date enthält dieses Script:
Sub PRINTitALLbaby()
'
' PRINTitALLbaby Makro
'
'
Sheets("blabla22322").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("blabla24462").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("blabla12679007").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
USW USW .......
Sheets("Tabelle1").Select
ActiveWindow.Close saveChanges:=False
End Sub
Nun habe ich eingefügt:
Workbooks.Open Filename:= _
"T:\.................................xlsm"
Die Datei geht auch auf. Aber das Script in der ersten Datei stoppt, also nach dem öffnen der Datei passiert in der ersten nichts mehr. Das ist ärgerlich, weil ja die Datei am Ende geschlossen werden soll.
Das Script in der Datei die geöffnet wird in Auszügen: (Wird über Private Sub Workbook_open()//Call master aufgerufen)
Sub master()
'
If MsgBox("Zeitungsliste jetzt drucken? [VORGANG DAUERT CA. 30 SEKUNDEN]", vbYesNo, "ACHTUNG") <> vbYes Then Exit Sub
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Application.DisplayAlerts = False
Sheets("mincer").Select
Columns("A:BI").Select
Selection.ClearContents
ActiveWorkbook.XmlImport Url:="T:\.................................................xml", ImportMap _
:=Nothing, Overwrite:=True, Destination:=Range("$A$1")
Columns("A:BI").Select
Selection.Copy
Application.CutCopyMode = False
Selection.Copy
Application.CutCopyMode = False
Selection.Copy
Sheets("Q1").Select
Columns("A:BI").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Q1").Select
ActiveWindow.SmallScroll Down:=-15
Columns("AA:AA").Select
Selection.TextToColumns Destination:=Range("AA1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(0, 1), DecimalSeparator:=".", ThousandsSeparator:=",", _
TrailingMinusNumbers:=True
Sheets("mincer").Select
Columns("A:BI").Select
Selection.ClearContents
Sheets("OUT").Select
ActiveWorkbook.RefreshAll
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.DisplayAlerts = True
ActiveSheet.PivotTables("PivotTable5").PivotCache.refresh
Sheets("46756758356873568356756256").Select
Dim druckende As Byte
druckende = ActiveSheet.Range("G2").Value
ActiveWindow.SelectedSheets.PrintOut Copies:=1, TO:=druckende, IgnorePrintAreas:=False
ActiveWindow.Close saveChanges:=True
End Sub
Da gibt es doch bestimmt eine Lösung?
Viele Grüße
Tom
|