Tvinge brugeren til at taste en værdi

Dette kan bruges

  Dim inval As Integer
inval = 0
While inval < 1 Or inval > 12
  inval = InputBox("Indtast en værdi mellem 1 og 12")
Wend
  Range("A1").Value = inval
  MsgBox ("Værdien er mellem 1 og 12")

Mvh
  Nissen2630

det lykkedes ikke helt.

Det som jeg søger efter er, at jeg vil gerne tvinge brugeren skal taste mellem 1 og 12, hvis det ikke blive taste noget - hvis brugen trykker på knappen "OK" skal inputBox igen poppe op, så man derved gør brugeren opmærksom på, at der skal tastes. Hvis brugeren derimod trykker på knappen "annuller" skal der i cellen a1 automatisk taste 0.

inval = 0
While (inval < 1 Or inval > 12) And inval <> ""
  inval = InputBox("Indtast en værdi mellem 1 og 12")
Wend
  If inval = "" Then
    Range("A1").Value = 0
  Else
    Range("A1").Value = inval
    MsgBox ("Værdien er mellem 1 og 12")
  End If

Hej nissen2630

Sorry for den sene svar. Tak for input - det var det som jeg ledte efter.
Hvis du gide at give et svar, så kan du få dine point.

Jeg har lige et sidste spørgsmål

Hvis brugeren ikke taste noget, men taste på knappen "cancel", så vil jeg gerne have den skal lave exit sub. Hvordan vil kode i hvert så fald se ud.

Jeg takker endnu en gang.

tak for hjælpen

kan du ikke komme med et svar, så du for dine point

lukket