in meinen text boxen(Userform1) möchte ich änderungen vornehmen
nach der änderung möchte ich per ENTER taste die änderung
in meine tabelle eintragen.wenn ich in der textbox eine änderung gemacht habe wird sie akzeptiert sobald ich die 2 textbox anklicke und eingabe drücke erhalte ich die fehler meldung
typen unverträglich???
was mache ich da falsch!!
Private Sub txtNachname_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then Cells(ListBox2.Value, 1) = txtNachname
End Sub
Private Sub txtVorname_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then Cells(ListBox2.Value, 2) = txtVorname
End Sub
Private Sub txtPlz_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then Cells(ListBox2.Value, 3) = txtPlz
End Sub
Private Sub txtOrt_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then Cells(ListBox2.Value, 4) = txtOrt
End Sub
Private Sub txtAdresse_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then Cells(ListBox2.Value, 5) = txtAdresse
End Sub
Private Sub txtTelefon_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then Cells(ListBox2.Value, 6) = txtTelefon
End Sub
Private Sub txtHandy_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then Cells(ListBox2.Value, 7) = txtHandy
End Sub
Private Sub txtFax_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then Cells(ListBox2.Value, 8) = txtFax
End Sub
Private Sub txtEmail_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then Cells(ListBox2.Value, 9) = txtEmail
End Sub
Private Sub txtKennung_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then Cells(ListBox2.Value, 10) = txtKennung
End Sub
Private Sub txtAnmerkung_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then Cells(ListBox2.Value, 11) = txtAnmerkung
End Sub
DANKE
grüße aus wien