Hop automatisk til næste celle når der er indtastet 2 tegn i et felt

Worksheet_Change reagerer først NÅR du trykker på TAB eller ENTER.

En celle har umiddelbart ikke en KeyPress event, som f.eks. et tekstfelt på en userform har, og det hænger samme med, at kode IKKE kan afvikles når en celle er i EditMode/redigeringstilstand.

Du kan måske ikke lide svaret, men det er altså:
NEJ, det kan man ikke.

Øv...

Leder desperart efter en lettere måde at indtaste datoer i celler.

Når nu det ikke kan lade sig gøre, vil jeg så høre om man så kan lave en lille kode med "Worksheet_Change" der automatisk sætter bindestregerne til datoformatet.

Her tænker jeg på at hvis man skriver

31012011 eller 310111, så laver den teksten om til en dato 31-01-2011?

cellens format skal være "dato" har koden er kørt, så man kan sortere på dato efterfølgende.

ja øjeblik

Jeg synes den med 6 tegn er uheldig, da et to-cifret altid får 20 sat foran, den del kan nok løses smartere, hvis hoved lige bliver lagt i det, men det gør det ikke i aften...


Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
        If Not IsNumeric(Target.Value) Then Exit Sub
        Application.EnableEvents = False
        Select Case Len(Target.Value)
            Case 6
                Target.Value = Left(Target.Value, 2) & "-" & Mid(Target.Value, 3, 2) & "-20" & Right(Target.Value, 2)
            Case 8
                Target.Value = Left(Target.Value, 2) & "-" & Mid(Target.Value, 3, 2) & "-" & Right(Target.Value, 4)
        End Select
        Application.EnableEvents = True
    End If
End Sub

Takker.
Nu hvor indtastningen ikke kommer til at foregå helt som jeg forventede, har jeg et yderligere ønske til indtastningen.

Det laver jeg et nyt spørgsmål.

Så håber jeg det kan løses :-)

Tak for hjælpen