Sub Abgleich_mit_bereits_Importierten()
Dim ActiveWS As Worksheet, x As Integer, y As Integer
Dim wks As Worksheet
Set ActiveWS = ActiveSheet
For Each wks In ThisWorkbook.Worksheets
If Not wks.Name = ActiveWS.Name Then
For y = 1 To 256
If ActiveWS.Cells(1, y) <> wks.Cells(1, y) Then
y = 1
Exit For
End If
If y = 256 Then
ActiveWS.Rows(5).Copy
wks.UsedRange.SpecialCells(xlCellTypeLastCell).Paste
ActiveWS.Delete
End If
Next y
End If
Next
End Sub