Hi Mase,

ich verstehe nicht so ganz, wie ich die innere Schleife umkehren soll. Ich habe jetzt ein Flag implementiert, dass auf True gesetzt wird, sobald zwei Zellen in dem Abgleich ungleich sind. Ich habe es debuggt und obwohl die ersten beiden Tabellen die verglichen werden sind ungleich. Das heißt ich  komme gar nicht mehr zu dem "Exit For". Trotzdem wird auch die äußere Schleife nach dem ersten Durchlauf schon beendet.

Sub Abgleich_mit_bereits_Importierten()

Dim ActiveWS As Worksheet, y As Integer, UngleichFlag As Boolean
Dim wks As Worksheet

Set ActiveWS = ActiveSheet
UngleichFlag = False

 For Each wks In ThisWorkbook.Worksheets
    If Not wks.Name = ActiveWS.Name Then
     UngleichFlag = False
     For y = 1 To 256
      If ActiveWS.Cells(1, y) <> wks.Cells(1, y) Then
        UngleichFlag = True
      End If
      If y = 256 And UngleichFlag = False Then
        ActiveWS.Rows(5).Copy
        wks.UsedRange.SpecialCells(xlCellTypeLastCell).Paste
        ActiveWS.Delete
        Exit For
      End If
    Next y
   End If
    
    
 Next

End Sub