'--ListView Einstellungen--!!!
With ListView1
    .ListItems.Clear
    .ColumnHeaders.Clear
    .View = lvwReport
    .Checkboxes = True
End With
 
'--Spaltendefinition--!!!
With ListView1.ColumnHeaders
    .Add , , "", 15
    .Add , , "Nachname", 210
End With
 
'ListView füllen aus Auswahlsatz
With ListView1.ListItems
    For Each PerName In LaSet
        Set LItem = .Add()
        LItem.Text = ""
        LItem.SubItems(1) = PerName
    Next
End With
 
'ListView, doppelte Einträge löschen, wie ??????????
Dim i As Long
 
With ListView1.ListItems
    For i = 1 To .Count - 1 Step -1
        If .Item(i).SubItems(1) = .Item(i - 1).SubItems(1) Then
            .Remove i
        End If
    Next i
End With
 
With ListView1
    .Sorted = True
    .SortKey = 1
    .SortOrder = lvwAscending
End With

VG

Dirk