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?
|