Sortieren

Sub Sort()
Dim wks1 As Worksheet, wks2 As Worksheet
Dim iRow As Integer, iRowT As Integer
Set wks1 = Worksheets("Tabelle1")
Set wks2 = Worksheets("Tabelle3")
wks2.Columns("A").ClearContents
iRowT = 3
For iRow = 9 To wks1.Range("k200").End(xlUp).Row
If wks1.Cells(iRow, 11) <> "" Then
If WorksheetFunction.CountIf(wks2.Columns(1), _
wks1.Cells(iRow, 11)) = 0 Then
iRowT = iRowT + 1
wks2.Cells(iRowT, 1) = wks1.Cells(iRow, 11)
End If
End If
Next
End Sub