Dim ObjEnt As AcadEntity
Dim colTemp As New Collection
Dim i As Long
 
On Error Resume Next
 
For Each ObjEnt In LaSet
    colTemp.Add ObjEnt.Layer, ObjEnt.Layer
    'Namenseintrag und Namensindex vom Typ String
Next
 
On Error GoTo 0
With ListView1.ListItems
    For i = 1 To colTemp.Count
        Set LItem = .Add()
        LItem.Text = ""
        LItem.SubItems(1) = colTemp(i)
        'einmaligen Namenseintrag übernehmen
    Next i
End With

VG

Dirk