Office: Eingabeformat in TextBox vorgeben

Hallo,

kann man in einer TextBox ein Eingabeformat vordefinieren? So dass z.B. bei der Eingabe eines Datum automatisch die Punkte gemacht werden?

Vielen Dank für Eure Hilfe!!!

:)

 

Hey,

wie der Name bereits aussagt : In eine TEXTBox wird gewöhnlicherweise TEXT eingegeben und daher ist dort (fast) alles als Eingabe zulässig.

Du kannst aber auf die Eingabe jedes einzelnen Zeichens per Ereginis-Makro reagieren, z.b. dass generell nur Ziffern eingegeben werden können und dass automatisch nach dem 2. und 4. Zeichen ein Punkt hinzugefügt wird - in etwa so (noch nicht ganz ausgereift) :

VBA-Code:

Private Sub TextBox1_Change()     Dim intLaenge As Integer, strTemp As String     If Len(TextBox1.Value) = 3 And IsNumeric(Mid(TextBox1, 2, 1)) And TextBox1.SelStart = 3 Then _         TextBox1.Value = Left(TextBox1, 2) & "." & Mid(TextBox1, 3, 1)     If Len(TextBox1.Value) = 6 And IsNumeric(Mid(TextBox1, 5, 1)) And TextBox1.SelStart = 6 Then _         TextBox1.Value = Left(TextBox1, 5) & "." & Mid(TextBox1, 6, 1)     strTemp = TextBox1.Value     For intLaenge = 1 To Len(TextBox1)         If InStr("0123456789.", Mid(TextBox1, intLaenge, 1)) = 0 Then             strTemp = Left(TextBox1, intLaenge - 1) & "#" & Mid(TextBox1, intLaenge + 1)         End If     Next     TextBox1 = Replace(strTemp, "#", "") End Sub

Code eingefügt mit Syntaxhighlighter 4.15