wenn Zahl nicht zwischen 1-5 dann MsgBox

[JuergenRa]

Moin zusammen,

ich habe hier ein Code der eine Msg Box ausgiebt wenn die Zahl nicht zwischen 1 und 5 liegt.

Private Sub Not_1_AfterUpdate()
    If [Not_1] = 0 Or Not_1 < 5 Then
    MsgBox "Geben Sie bitte eine Zahl zwischen 1 und 5 ein !", vbCritical, "Falsche Eingabe"
    End If
End Sub

wenn ich die 0 eingebe Funktioniert es aber 6 und höher leider nicht. Es sollte eigentlich funktionieren.

Danke Jürgen.

[BoskoBiati]

Hi,


funktioniert auch nicht bei 1-5!

Not_1>5