Hallo ich möchte bei mehreren Zellen überprüfen lassen, ob eine Zahl eingegeben wurde.
Die Zellen sind:
Alle in der Spalte B und Zeilen sind 14 , 17- 19 , 22- 24 , 27 , 29, 32-34 , 37-39 , 41, 43 , 45 , 47
Folgendes war meine Idee:
####
'Überprüfung ob Zahlenwerte eingegeben wurden
If Not IsNumeric(Cells(14, 2)) Or Not IsNumeric(Cells(17, 2)) Then 'ES FEHLEN NOCH ALLE ANDEREN EINGABEWERTE
MsgBox ("Bitte nur Zahlenwerte als Eingabeparameter")
Exit Sub
End If
####
Ich finde es aber sehr umständlich, da ich dann ja fast 17 mal Not IsNumeric hinschreiben müsste. Hat jemand eine elegantere Idee?
MfG
|