Hallo Leute, 

ich habe eine Frage und zwar komme ich gerade nicht weiter mit meinem Makro, weil meine Loop in einer anderen Loop den Startpunkt bei der zweiten Loop setzt (Do While Dateiname2 <> "") - in rot markiert - und nicht bei der ersten (Do While Dateiname <> "") - in gelb grün markiert -  = ein Teil des Makros wird daher nicht ausgeführt. 

Gibt es hierfür eventuell eine Lösung? - dass die Loop immer von Am Anfang meines Codes beginnt bzw. bei einer festgelegten Codezeile ?

Hier ist mein Code: 

Sub IKS()

    Dim wb As Workbook
    Dim strVerzeichnis As String
    Dim StrDatei As String
    Dim StrTyp As String
    Dim Dateiname As String
    Dim oTargetBook As Object
    Dim oSourceBook As Object
    Dim sFileName As String
    Dim Speichertext As String
    
    Dim strVerzeichnis2 As String
    Dim StrDatei2 As String
    Dim StrTyp2 As String
    Dim Dateiname2 As String
    Dim oSourceBook2 As Object
    
    
    Speichertext = "_02_2021_Abstimmung_Tagetik_RU"
    
    strVerzeichnis = "C:\Users\Christoph\Desktop\Excel makro\GrossAmount\"
    
    StrTyp = "*.xl*"
    
    Dateiname = Dir(strVerzeichnis & StrTyp)
    
    
    
    strVerzeichnis2 = "C:\Users\Christoph\Desktop\Excel makro\Package\"
    
    StrTyp2 = "*.xl*"
    
    Dateiname2 = Dir(strVerzeichnis2 & StrTyp2)
    
    
    
    
    Do While Dateiname <> ""
      
    Set oSourceBook = Workbooks.Open(Filename:=strVerzeichnis & Dateiname)
    
    Set oTargetBook = Application.Workbooks.Add
    
    Set wb = Workbooks("Vorlage_Makro_Tagetik")
        
    
    wb.Sheets("Formel").Copy After:=oTargetBook.Sheets(Sheets.Count)
    
    ActiveSheet.Name = "Abstimmung"
    
    
    oSourceBook.Worksheets("Gross").Copy After:=oTargetBook.Worksheets(oTargetBook.Sheets.Count)

    ActiveSheet.Name = "export"

    oSourceBook.Close
    
   

Do While Dateiname2 <> ""
      
    Set oSourceBook2 = Workbooks.Open(Filename:=strVerzeichnis2 & Dateiname2)
    
    oSourceBook2.Worksheets("Korrektur upload").Copy After:=oTargetBook.Worksheets(oTargetBook.Sheets.Count)

    ActiveSheet.Name = "BWD"
            
    oSourceBook2.Close
       
    
    
    
    
    'Tabellenblatt "Tabelle1" löschen

    Worksheets("Tabelle1").Delete
    
    
    
    'Speichern
    sFileName = Left(Dateiname, InStrRev(Dateiname, ".") - 3)
    
    ActiveWorkbook.SaveAs Filename:= _
    "C:\Users\Morning\Desktop\Excel makro\Target\" & sFileName & Speichertext & ".xls" _
         , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
         ReadOnlyRecommended:=False, CreateBackup:=False
    
    oTargetBook.Close
        
        
    Dateiname = Dir()
    
    Dateiname2 = Dir()
    
    
Loop

Loop
   
End Sub

Vielen Dank im Voraus und liebe Grüße