textbox in UF nach 9 zeichen ein leerzeichen
15.09.2005 18:20:50
Bernd
ich habe in einer userform 2 textboxen. in der ersten TB gebe ich 9 ziffern ein und der focus springt in TB2. dort gebe ich 2 ziffern ein und der focus springt zurück in TB1. soweit so gut.
nun möchte ich, dass wenn der focus zurück in TB1 springt, ein leerzeichen einfügt und dann immer nach weiteren 9 zeichen wieder ein leerzeichen einfügt.
wenn dann evtl. maximal 59 teichen in TB1 sind (mit leerzeichen) wird der inhalt der TB1 in zelle a2 geschrieben und die UF schliesst sich.
hier mal meine code für die UF:
Option Explicit
Private Sub CommandButton1_Click()
[a2] = TextBox1
Unload Me
End Sub
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim AnzahlZeichen_1 As Integer
AnzahlZeichen_1 = Len(TextBox1)
If AnzahlZeichen_1 = 9 Then
TextBox2.SetFocus
End If
If AnzahlZeichen_1 = 59 Then
MsgBox "keine weitere eingabe möglich"
[a2] = TextBox1
Unload Me
End If
[a1] = AnzahlZeichen_1
End Sub
Private Sub TextBox2_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim AnzahlZeichen_2 As Integer
AnzahlZeichen_2 = Len(TextBox2)
If AnzahlZeichen_2 = 2 Then
TextBox1.SetFocus
End If
End Sub
vielen lieben dank für eure hilfe, komme da nicht weiter.
gruss aus dem schönen Hamburg
Bernd
Rückmeldung wäre nett