Begræns brugerindtastning til tal og mellem 1 og 6

Du vælger for den/de pågældende celler/områder: datavalidering under data. I boksen går du ind under vilkårlig værdi og vælger "helt tal", derefter er default "mellem" og du angiver minimum som "1" og Maksimum som "6" du kan krydse af i feltet andvend ændringerne i alle celler med samme indstillinger.. Den virker og du får fejlmeddelelse hvis indtastningen ligger udenfor 1 og 6 eller ikke er et tal ;-)

Den kender jeg godt, men vil helst have løst problemet via vba kode. Kan du klare den?

Indsæt følgende kode i ThisWorkbook kodemodul

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target < 1 Or Target > 6 Then
MsgBox ("Forkert tal")
End If
End Sub

-> det ligner meget det jeg søgte. Kan jeg få den til at stille sig i den celle, hvori fejlen opstod? (og med blank celle). Det går galt når brugeren bruger musen til at klikke på næste celle.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target < 1 Or Target > 6 Then
MsgBox ("Forkert tal")
End If
Target.Select
Selection=""
End Sub

Denne er vist bedre:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target < 1 Or Target > 6 Then
MsgBox ("Forkert tal")
Application.EnableEvents = False
Target.Select
Selection = ""
Application.EnableEvents = True
End If
End Sub

-> excelent - den er helt i top - det var præcist det jeg søgte. Læg venligst et svar, så er der fluks point på vej. Tak for hjælpen :O))

Hej igen - kan du sætte et range på, så den kun virker på et område?

jada indsæt denne linie som nr. 2 i koden
ret A1:A20 til ønsket område koden skal virke i

If Intersect(Target, Range("A1:A20")) Is Nothing Then Exit Sub

Perfekt - God weekend :O))