Dim SrchRng As Range, cel As Range

Set SrchRng = Worksheets("Übersicht").Range("B1:B20")

For Each cel In SrchRng
    If InStr(cel.Value, 1) Then
        Worksheets("Übersicht2").Range("A1") = "Ja"
    End If
    If InStr(cel.Value, 2) Then
        Worksheets("Übersicht2").Range("A2") = "Ja"
    End If

..... immer so weiter

Ich hänge in meinem Code; ich habe eine For-Schleife erstellt, wobei ein "Ja" in ein Feld geschrieben werden soll, wenn die Zahl im Bereich vorhanden ist. Jedoch wird ebenfalls bei (z.B) der Zahl 12 in Feld A1 und A2 geschrieben. 

Anscheinend macht das Programm keine Trennung von zweistelligen Zahlen.
Woher kommt dieses Problem? Kann mir jemand unter die Arme greifen?