Dim n1 As Integer
Dim bFound As Boolean
 
bFound =False
 
If List1.ListCount >0 Then
   For n1 = 0 To List1.ListCount - 1
      If List1.List(n1) = "sucheintrag" Then
      bFound = True
      Exit For
      End If
   Next n1
End If