Warum Abbruch ?

Sub erstellt_Spalten_ohne_Duplikate()
irow = Range("datenbank").Rows.Count
'weist nur den (ohne Duplikate) zu kopierenden Spalten einen Namen zu
For Each zelle In Range("datenbank").Rows(1).Columns
Select Case zelle.Text
Case Is = "FACH", "NAME", "PLZ", "ORT", "CODE"
Range(zelle, zelle.End(xlDown)).CreateNames True, False, False, False
End Select
Next
For i = 1 To 4
Select Case i
Case Is = 1
t = "plz"
Case Is = 2
t = "Ort"
Case Is = 3
t = "Code"
Case Is = 4
t = "fach"
End Select
icol = Range("" & t & "").Column 'Spaltenindex der zu kopierenden Spalte, Zeilen bereits oben
Set rngkopbereich = Range(Cells(1, icol), Cells(irow, icol))
Set rngkopziel = Cells(1, Sheets("Basis").UsedRange.Columns.Count + 1)
rngkopbereich.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=rngkopziel, Unique:=True
MsgBox "ok"
With rngkopziel.EntireColumn
.Sort Key1:=rngkopziel, Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
rngkopziel = "" & t & "_1" 'Spalten = Bereichsname
With Range(rngkopziel, rngkopziel.Cells.End(xlDown))
.EntireColumn.AutoFit
.CreateNames True, False, False, False
End With
Next
End Sub