If Not ItemExists(List1, daten(schleife, 0)) Then
   List1.AddItem daten(schleife, 0)        
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

If Not ItemExists(List1, daten(schleife, 0)) Then
  List1.AddItem daten(schleife, 0)       
End If

Public Function ItemExists(oControl As Object, ByVal sItem As String) As Boolean
  On Error Resume Next
  oControl.Text = sItem
  If Err.Number <> 0 Or oControl.ListIndex < 0 Then
    ItemExists = False
  Else
    ItemExists = True
  End If
  On Error GoTo 0
End Function

Public Function ItemExists(oControl As Object, ByVal sItem As String) As Boolean
  Dim i As Long
 
  With oControl
    For i = 0 To .ListCount - 1
      If .List(i) = sItem Then
        ItemExists = True
        Exit For
      End If
    Next i
  End With
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de