VB textbox

Jeg tror du er bedre tjent med at kode på Exit hændelsen...

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)

End Sub

Prøv evt. at lave nogle simple test på KeyPress hændelsen, hvor du forsøger at skrive eks. Debug.Print "'" & KeyAscii & "'" til Immediate vinduet - der kommer intet...

virker men det skal virke på den måde hvis man trykker på textbox1 for at skrive skal den vise textbox2 og aktivere den så det er den man skriver i og når man så trykker enter hide textbox2 og luk userform1

Option Explicit

Dim Data As Variant

Private Sub TextBox1_Active()
    'UserForm1.TextBox2 = True
    'If UserForm1.TextBox2 = True Then
    'UserForm1.TextBox2 = False
    TextBox2.SetFocus
End Sub

Private Sub TextBox2_Change()
Dim I As Long
If Len(TextBox2.Text) = 0 Then TextBox1.Text = "": Exit Sub
    For I = 1 To UBound(Data)
        If UCase(Left(Data(I, 1), Len(TextBox2))) = UCase(TextBox2.Text) Then
            TextBox1.Text = Data(I, 1)
            Exit Sub
        End If
    Next
    TextBox1.Text = TextBox2.Text
   
   
   
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    ActiveSheet.Range("B4") = UserForm1.TextBox1.Value
        'UserForm1.TextBox2 = False
        Unload UserForm1
End Sub
Private Sub UserForm_Initialize()
    Dim RW As Long
   
    RW = Sheets("Ark2").Range("A65536").End(xlUp).Offset(1, 0).Row
    Data = Sheets("Ark2").Range("A1:A" & RW)

End Sub

humm...