Dim i As Integer
Dim bFound As Boolean
 
With List1
  For i = 0 To .ListCount - 1
    If .List(i) = "Benutzername" Then bFound = True: Exit For
  Next i
End With
 
If bFound Then
  <font color=green>' Benutzername vorhanden...</font>
 
Else
  <font color=green>' ...noch nicht vorhanden</font>
 
End If