Nocheinmal zur T-Box zurück

Private Sub txtLFBankIban1_AfterUpdate()
Application.Run "LF_Iban_Komp_erstellen"
End Sub

Private Sub txtLFBankIban1_KeyPress(ByVal intKeyASc As MSForms.ReturnInteger)
intKeyASc = IBAN(txtLFBankIban1, CInt(intKeyASc))
End Sub

Private Sub txtLFBankIban1_Change()
If Len(txtLFBankIban1.Value) >= 2 Then txtLFBankIban2.SetFocus
End Sub

Public Function IBAN(objTextBox As MSForms.TextBox, intKeyNumber As Integer) As Integer
Select Case intKeyNumber
Case 48 To 57: IBAN = intKeyNumber
Case Else: IBAN = 0
Mldg = MsgBox("Im Feld " _
& vbLf & "IBAN " _
& vbLf & "sind nur Zahlen 0-9" _
& vbLf & "und Leerzeichen erlaubt..." _
, vbOKOnly + vbInformation, "Fehler: IBAN-Nummer")
End Select
End Function