....
....
Sheets("Verdichtung1").Select
Range("B2:B200").Select
For Each Zelle In Selection
If InStr(Zelle, v) > 0 Then
MsgBox "Diese Nummer ist schon vergeben!"
Cancel = True
Else: NFärben
End If
Next Zelle
Das problem ist dass das v in der Instr methode eine Zahl ist, aber beim vergleich als text aufgefasst wird und deshalb alle zahlen zurückgibt welche v enthalten: Beispiel v = 1 --> sucht werte in selection --> in Selection sind 11, 12, 13, 14, 15 --> Bekomme 5 error messages ;( obwohl die 1 gar nicht in der selection enthalten ist. Gibt es eine Methode wie instr die sich für zahlen eignet? Oder sonst ne lösung.
Help please, Danke