Dim oItem As ListItem
 
' nach dem Objekt-Eintrag in der 1. Spalte suchen
Set oItem = ListView1.FindItem("Object_x")
If oItem Is Nothing Then
  ' wenn nicht gefunden, neuen Eintrag erstellen
  Set oItem = ListView1.ListItems.Add(, , "Object_x")
End If
 
' hier die SubItems setzen
oItem.SubItems(...) = ...

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de