Userform - Formatierung TextBox
08.09.2018 08:35:07
akor74
ich baue gerade eine Kundendatenbank, auf die zur Erfassung bzw. Abfrage mehrere Nutzer Zugang erhalten sollen. Somit muss ich bereits bei der Erfassung Sorge tragen, dass Gleichheit im Format der Daten besteht.
Abbildung von Telefonnumern:
Private Sub TextBox12_Change()
TelFest1 = TextBox12.Value
End Sub
Private Sub TextBox12_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Land = "DE" Then Vorwahl = "+49 "
If Land = "A" Then Vorwahl = "+43 "
If Not IsNumeric(TextBox12) Then
TextBox12.ForeColor = RGB(255, 0, 0)
'Cancel = True
Else
TextBox12.ForeColor = RGB(0, 0, 0)
TextBox12 = Format(Vorwahl & TextBox12.Value)
End If
End Sub
dann wird +49 030 ausgeben.
Frage 1
Wie bekomme ich die 0 vor 30 weg? --> +49 30xxxxxx
Frage 2
Wie bekomme ich die xxxxxxx mit einem Leerzeichen unterbrochen, muss nicht nicht nach DIN sein, nur optisch quasi. +49 30 xxx xxx xx
Frage 3
Problem, wurde die Rufnummer richtig erfasst, ausschliesslich numerisch ist alles gut, klickt man jedoch erneut in das Feld, stimmt durch das "+" die Vorgabe Bedingung nummerisch nicht mehr ....
Vielen Dank vorab für eine Hilfestellung,
Gruß AKor