Office: Textboxlänge begrenzen und nur bestimmten Datentyp zulassen

OSX210 · 16. Juni 2014

Hallo,

ich habe in meiner Userform zahlreiche Textboxen, die ich gerne schon während der Eingabe in ihrer Länge begrenzen würde. Ich habe dank Google zwar gefunden, wie ich die Eingabe nachträglich auf eine bestimmte Zeichenanzahl beschneiden kann, das soll jedoch schon während der Eingabe passieren. Sprich, nach drei Zeichen soll Schluss sein und zwar auch, wenn man etwas mit Copy&Paste einfügt.

Meine zweite Frage wäre, wie ich überprüfen kann, ob die Eingabe einem bestimmten Datentyp entspricht. Es geht jetzt um eine andere Textbox, in welcher ein Datum eingetragen werden soll. Sofern dieses Datum ungültig ist (z.B. 30.02.) oder falsche Zeichen eingegeben werden, soll eine Fehlermeldung erscheinen.

Danke für eure Hilfe.

:)

Hajo_Zi · 17. Juni 2014

benutze die Eigenschaft MaxLength.

OSX210 · 18. Juni 2014

Vielen Dank, das hat schon einmal funktioniert.

Kann mir noch jemand bei der zweiten Frage helfen? Es geht hauptsächlich um Datumsangaben. Kann man dort das Feld vielleicht sogar so gestalten, dass es automatisch die Punkte setzt bei der Eingabe?

Also so: _ _ . _ _ . _ _ _ _

Allerdings ist das nicht ganz so wichtig. Wichtig wäre nur, dass beim Schreiben in die Tabelle geprüft wird, ob es sich um ein gültiges Datum handelt, also ob der Typ CDate erfüllt ist.

Danke!

Hajo_Zi · 18. Juni 2014

Code:

Option Explicit
Dim BoEnter As Boolean

Private Sub TextBox6_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
' erstellt von HajoZiplies@web.de Stand 01.08.03
' Datumseingabe 01.01.03;1.1.03 oder komlettes Jahr
' Eingabe des Tages und des Monat zweistellig werden die Punkte automatisch gesetzt
' sie können nur gelöscht durch markierung des punktes und der Zahl davor
' Buchstaben werden ausgeschlossen, nur Zahlen und Punkt
' die Überprüfung ob Datum erfolgt in Private Sub TextBox6_AfterUpdate()
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Asc(".")
If Len(TextBox6) = 0 Then
KeyAscii = 0
Else
If Len(TextBox6) - Len(Application.Substitute(TextBox6, ".", "")) = 2 Then
KeyAscii = 0
ElseIf Len(TextBox6) > 1 Then
If Mid(TextBox6, Len(TextBox6), 1) = "." Then KeyAscii = 0
Else
KeyAscii = Asc(".")
End If
End If
Case Else
KeyAscii = 0
End Select
End Sub

Private Sub TextBox6_Change()
If BoEnter = True Then Exit Sub
If Len(TextBox6) = 2 Then
If InStr(TextBox6, ".") = 0 And BoEnter = False Then TextBox6 = TextBox6 & "."
ElseIf Len(TextBox6) = 5 Then
If Len(TextBox6) - Len(Application.Substitute(TextBox6, ".", "")) < 2 Then
TextBox6 = TextBox6 & "."
End If
End If
End Sub

Private Sub TextBox6_AfterUpdate()
BoEnter = True
If Right(TextBox6, 1) = "." Then TextBox6 = Mid(TextBox6, 1, Len(TextBox6) - 1)
' Jahreszahl vom aktuellen Jahr ergänzen falls nicht vorhanden
If Len(TextBox6) - Len(Application.Substitute(TextBox6, ".", "")) = 1 Then
TextBox6 = TextBox6 & "." & Year(Date)
End If
If IsDate(TextBox6.Text) Then
If Format(CDate(TextBox6.Value), "dd.mm.yy") TextBox6 Then
MsgBox "Das Datum wurde übersetzt"
End If
TextBox6 = Format(CDate(TextBox6.Value), "dd.mm.yy")
Else
TextBox6 = ""
End If
BoEnter = False
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

OSX210 · 18. Juni 2014

Vielen Dank Hajo, damit ist alles so, wie ich es mir vorgestellt habe.

Office: Textboxlänge begrenzen und nur bestimmten Datentyp zulassen

Textboxlänge begrenzen und nur bestimmten Datentyp zulassen

Textboxlänge begrenzen und nur bestimmten Datentyp zulassen

Textboxlänge begrenzen und nur bestimmten Datentyp zulassen

Textboxlänge begrenzen und nur bestimmten Datentyp zulassen - Similar Threads - Textboxlänge begrenzen bestimmten

Zeichenzahl begrenzen und trotzdem Kommentare zulassen?

Prozentuale Berechnung UND kleiner als

Objekte auf Folie begrenzen

ComboBox begrenzen

Excel Protokoll begrenzen

in der InputBox Eingabe Werte begrenzen

Werte in einer Zelle begrenzen