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