Hallo zusammen,

leider war ich etwas zu vorschnell mit meiner Lösung von vorher. Beim bearbeiten der ersten Datei läuft der VBA Code sauber durch.

Nachdem er das zu bearbeitende Excel File gespeichert hat und schließt, wird nun ein neues File geöffnet, um die gleiche Prozedur zu durchlaufen.  Hier kopiert er mir leider nicht den gewünschten Abschnitt in das neu geöffnete Excel File. Im fixem File (dass immer geöffnet bleibt und von welchem ich den Code abspiele) soll im Sheet1 die gesamte Spalte A kopiert werden und im neu geöffneten varibalen Sheet(2) in Spalte A eingefügt werden.

Wie gesagt. Beim ersten Durchlauf klappt der Code super.

Hat jemand eine Lösung parat?

Vielen Dank!

Derzeit sieht mein Code folgendermaßen aus.

Sub OrderMatcher()
 'Open Files
 
    Dim Source As String
    Dim StrFile As String
    Const csPath As String = "C:\Users\Maximilian\Documents\Studium\Bachelor Arbeit\Data\Aggr_Orders_Match\"
    Dim i As Integer
    
    Workbooks("Order_Matcher").Worksheets(1).Range("A:A").EntireColumn.Select 'zu kopierender Bereich der "Fixen" Datei"
    Selection.Copy 
    
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    
    'do not forget last backslash in source directory.
    Source = "C:\Users\Maximilian\Documents\Studium\Bachelor Arbeit\Data\"
    StrFile = Dir(Source)

    Do While Len(StrFile) > 0
        Workbooks.Open Filename:=Source & StrFile
        StrFile = Dir()
   
    Sheets.Add After:=ActiveSheet
    Worksheets(2).Paste ' Zielort des zu Kopierenderbereich - Sheet2 - Column A 

'Hier läuft die Prozedur ab 

' Nachfolgend Format Anpassungen und einfügen von Überschriften, die sich in der Variablen Datei im Sheet1 befindet

 Worksheets(1).Activate
    Range("A1:Y1").Select
    Selection.Copy
    Worksheets(2).Select
    Range("A1").Select
    ActiveCell.PasteSpecial
               
       
    ActiveCell.Columns("A:Y").EntireColumn.Select
    ActiveCell.Columns("A:Y").EntireColumn.EntireColumn.AutoFit
   
    'Speichern und Schließen der variablen Datei und öffnen der nächsten variablen Datei

    MName = ActiveWorkbook.Name
    Worksheets(2).Name = MName
    MDir = ActiveWorkbook.Path
    ActiveWorkbook.SaveAs Filename:=csPath & MName & ".xlsx", FileFormat:=xlOpenXMLWorkbook
    
    ActiveWorkbook.Close savechanges:=True
    

        
    Loop
    
      Application.ScreenUpdating = True
End Sub