Option Explicit
 
Private Sub Command1_Click()
   Dim i As Integer
     For i = 0 To List1.ListCount - 1
       If InStr(1, Left(List1.List(i), 21), "22") Then
              MsgBox "hier is eine 22 auf den spalten 20-21 "
       Else
              MsgBox " es gibnt zwar eine '22' aber nich auf den spalten 20-21"
       End If
   Next i
End Sub

IHR SEID ALLE SO
mfG
dereric


P.S.: schreibt mir eine eMail