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