For Z = 1 To UBound(All)
   For B = 1 To UBound(Final)
      If All(Z) = Final(B) Then
      DblEntry = 1
      End If
   Next B
   If DblEntry <> 1 Then
   ReDim Preserve Finalcopy(UBound(Final) + 1)
   Finalcopy(UBound(Final)) = All(Z)
   End If
Next Z

HIER K?NNTE IHRE WERBUNG STEHEN !!!

TEL : 0800-ICHHASSESIGNATUREN