Hey Bieke,

Hé hé, leuk dat je deze methode meteen ziet zitten, dat 'wennen' zal dus wel heel vlot zijn verlopen

Wat je laatste vraag betreft, misschien kan je ook gewoon de gecreëerde functionaliteit gebruiken om de textboxen weer op hun plaats te krijgen, bv. door, ik zeg maar wat, 2 spaties te tikken (dat zijn ook karakters), en dan in de code met een if-structuur de gewenste acties uit te voeren. Bij 2 spaties zou dat dan zijn: de textbox leegmaken en op haar plaats zetten, ze ook niet activeren, en vooral de actieve cel niet vullen, bij elke andere invoer de huidige code uitvoeren.
Bekijk het maar eens, voor mij zit vandaag erop, toch wat de pc betreft

Groetjes,
Molly

@SoftAid,
 

@algemeen,

***UPDATE***

Omdat ik me plots realiseerde dat na verloop van tijd, naarmate ook de andere kolommen op mijn werkblad verder ingevuld zullen worden, op een gegeven moment de kolommen T tem W volledig buiten beeld zouden vallen heb ik mijn aanpak herbekeken.

Ik heb de rijhoogte van mijn 1e (geblokkeerde) rij verdubbeld om aldaar, boven de datum-kolommen de betreffende textbox te ‘parkeren’ indien er andere bewerkingen plaatsvinden. Ook ben ik afgestapt van het gebruik van 2 textboxen.
Ik heb dus het codeblok dat Molly had aangereikt volledig aangepast aan het gebruik van 1 textbox voor de drie betreffende kolommen met een extra stukje code om de textbox te “parkeren”.

Dit is em uiteindelijk geworden (en alles werkt (voorlopig) correct) :

Private Sub TextBox1_Change()
  If TextBox1.Value <> " " Then
    If Selection.Column = 4 Or Selection.Column = 5 Then
      If Len(TextBox1) = 2 Then
        Selection.Value = TextBox1.Value
        Cells(Selection.Row + 1, Selection.Column).Select
        With TextBox1
          .Value = ""
          .Activate
          .Top = Selection.Top
          .Left = Selection.Left + Selection.Width
        End With
      End If
    End If
    If Selection.Column = 6 Then
      If Len(TextBox1) = 4 Then
        Selection.Value = TextBox1.Value
        Cells(Selection.Row + 1, Selection.Column).Select
        With TextBox1
          .Value = ""
          .Activate
          .Top = Selection.Top
          .Left = Selection.Left + Selection.Width
        End With
      End If
    End If
  Else
    Cells(1, 4).Select
    With TextBox1
      .Value = ""
      .Top = Selection.Top
      .Left = Selection.Left
    End With
  End If
End Sub


In bijlage dan mijn bestandje dat ondertussen versie 1.1 geworden is 

Groetjes,
Bieke

Goeie voormiddag allen,

Bij het vandaag aan de volgende fase van mijn bestand te willen verder werken heb ik een lastig 'bugje' opgemerkt in mijn
naamcorrectie-code 

Namelijk het volgende...
Bij de voornamen 'Anna' en 'Joanna' loopt het fout....
Desondanks ik op mijn hulpwerkblad zowel voor 'Anna' als voor 'Joanna' een aparte kolom heb voorzien, wijzigt vba zowel de
'Anna'-vormen als 'Joanna'-vormen standaard naar 'Joanna'.... wat dus uiteraard niet de bedoeling is.

Hoe kan ik dit 'bugje' het beste fixen?

groetjes,
Bieke

Hey Molly,

Inderdaad, die lookat:=xlWhole was ik er vergeten bij te zetten 

bij deze het 'bugje' gefixt 


groetjes,
Bieke