Input maske på et felt

Indsæt nedenstående i modulet bag det ark du indtaster i. Makroen kommer med en meddelelse hvis en indtastning i kolonne A er mindre end 4 cifre/karakterer.

/asol

Private Sub Worksheet_Change(ByVal Target As Range)

If (Target.Column = 1) And (Len(Target.Cells.Value) < 4) Then
    MsgBox "Indtastningen er på mindre end fire cifre/karakterer"
End If

End Sub

Ok det var jo ikke det du eftersøgte. Indsæt nedenstående i modulet bag det ark du indtaster i og ret intRow og intCol så de svarer til den celle du indtaster i

/asol

Private Sub Worksheet_Change(ByVal Target As Range)

Dim intRow As Integer
Dim intCol As Integer

intRow = 1
intCol = 1

If (Target.Column = intCol) And (Target.Row = intRow) And (Len(Target.Cells.Value) < 4) Then
    MsgBox "Indtastningen er på mindre end fire cifre/karakterer"
End If

End Sub

Du kan bruge datavalidering i data-menuen.

Under "Tillad" vælger du "Brugerdefineret"
og under formel skriver du: "=LÆNGDE(C22)>=4

På et andet faneblad skriver du den fejlmeddelelse, som skal komme op, hvis brugeren ikke taster minimum 4 tegn.

C22 skal selvfølgelig udskiftes med din aktuelle celle.