Format Textbox

Forumthread: Format Textbox
1 Beitrag zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Format Textbox

Format Textbox

01.04.2005 13:25:34

Xelleron

Guten Morgen zusammen,
habe folgende Frage zum Formateingabe in der Textbox:
In diese sollen Kfz-Kennz. eingegeben werden mit dem Format
X-X XXX
X-XX XXX
X-XX XX
XX-X XXX
XX-XX XXX
XX-XX XX
etc
Kann man so eine Eingabeform erzwingen?
Gruß Dennis

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Format Textbox

01.04.2005 14:21:38

Harald

AW: Format Textbox

01.04.2005 14:21:38

Harald

Hallo Dennis,
mein Vorschlag. Userform erstellen, 3 Textboxen in Reihe und ein Commandbutton für Datenübernahme (mit untenstehendem Code) hinein.


Private Sub CommandButton1_Click()
If TextBox1.Value = "" Then MsgBox ("ungültige Eingabe!"): Exit Sub
If TextBox2.Value = "" Then MsgBox ("ungültige Eingabe!"): Exit Sub
If TextBox3.Value = "" Then MsgBox ("ungültige Eingabe!"): Exit Sub
wert = TextBox1.Value & "-" & TextBox2.Value & " " & TextBox3.Value
ActiveCell.Value = wert
Unload Me
SendKeys ("~")
End Sub

Gruß
Harald