Office: TextBox füllen

Morgen zusammen,

hoffe mir kann hier jemand helfen. Bitte auch gleich um Nachsicht, bin noch nicht so ganz fit im VBA.

Ich habe eine TextBox, diese habe ich auf 18 Zeichen begrenzt. Ich hätte gerne, dass
1. nur Zahlen in die TextBox eingeben werden können
2. das Ausgabe Format wie folgt aussehen soll
Nutzer gibt 12345678 usw. ein
in der TextBox wird dann angezeigt: xy1234-23-233234.

Wobei die rot angezeigten werte Automatisch eingetragen werden sollen.

Weiß da jemand Hilfe???

Vielen Dank schon mal

:)

 

Hallo,

1. ist recht einfach:

PHP:

         Private Sub textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57, 59
Case Else: KeyAscii = 0
End Select
End Sub


 

Hi Rio,

ich würde xy zwar in ein externes Label auslagern, aber naja...

so sollte es auch gehen:
Code:

 

Hallo,

eine weitere Variante:
Code:

Gruß
Aloys

 

Super vielen Dank für die Schnelle und unkomplizierte Hilfe!!!!! Super Forum!!!!

Habe den Code von Ralf hergenommen! Funktioniert, fast, wie ich es mir vorgestellt habe.

Das Problem ist, dass er mir bei folgender Eingabe

0123-000000-00-0

das ausgibt

0023-000000-00-0

Sprich es werden die ersten beiden Zahlen "geschluckt" und in nullen verwandelt.

Hab ich da was übersehen???

 

Hallo,

Von welchem Ralf? *grins

Deinen eingebauten Code-Schnipsel zu posten, wäre hilfreich.
Zumal du nun ein anderes Format angegeben hast, als in deinem Start-Beitrag.

xy1234-23-233234
0123-000000-00-0

 

Sorry hab den Code von R J genommen *mrcool

Hier der Code Schnipsel

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim str$, strXY$
str = Replace(TextBox1.Text, "-", "")
strXY = Mid(str, 3)
If Not IsNumeric(str) Then
If Left(LCase(str), 2) "xy" Or Not IsNumeric(strXY) Then
MsgBox "Ungültige Eingabe"
TextBox1.Text = ""
Exit Sub
End If
End If
TextBox1.Text = "XY " & Format(strXY, "0000-000000-00/0")
End Sub

 

Format(strXY, "0000-000000-00-0")

 

Danke!
aber geht auch nicht bekomme immer

xy0012-123456-12-1
heraus
bei der eingabe
1234-123456-12-1
also die ersten zwei sind immer noch weg?

 

...naja, die eresten Beiden (also xy) musst Du ja mit angeben:

Code:

 

Ich depp!

Ja klar!!! Danke!!!!!