Habe gestern , ohne zu testen Juhu Funktioniert geschrieben
nach dem testen ist nur ein kleines juhu geblieben.
Anbei Musterdatei,bitte wenn möglich nochmal helfen.
Danke michael
https://www.herber.de/bbs/user/36340.xls
Sub FalscheZahlen()
Dim varZahlen, c As Range, i As Integer, blnFound As Boolean
varZahlen = Array(10, 11, 12, 13, 26, 41, 1800)
For Each c In Range("F10:F250")
blnFound = False
If c <> "" Then
For i = 0 To UBound(varZahlen)
If c = varZahlen(i) Then
blnFound = True
Exit For
End If
Next i
If blnFound = False Then
MsgBox c.Value & " gibt es nicht"
c.Select
Exit Sub
End If
End If
Next c
End Sub