Redhead,
Een cijfertje te weinig of te veel geeft fouten.
Ben zo vrij om dit als sugestie te geven:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D:D")) Is Nothing And Target.Cells.Count = 1 Then
Application.EnableEvents = False
If Len(Target) <> 10 Then
MsgBox "foute invoer"
Target = ""
Application.Goto Target
End If
Target.Value = Format(Target.Value, "00,00,0000,0\/0")
Application.EnableEvents = True
End If
End Sub
en voor de formule in B
=ALS(LENGTE(A2)=10;TEKST(A2;"00.00.0000.0\/0");"")