Excel VBA Userform Textbox in bestimmtes Format

Hallo Leute,
ich bin am verzweifeln, weil ich seit 2 Tagen nicht zu einer Lösung komme.
Ich habe eine Userform, mit der ich eine Tabelle befülle. In der Userform habe ich eine TextBox in der immer ein bestimmtes Format vom User eingegeben werden soll.
Die Zeichenfolge beginnt mit einem Großbuchstaben (B, C oder S) gefolgt von zwei Zahlen. Dann ein Punkt, drei weitere Zahlen, ein Punkt und zu Letzt zwei Zahlen.
Beispiel: C99.123.67
Ich möchte gerne das Fehleingaben direkt bei der Eingabe abgefangen werden (KeyPress) und die Punkte automatisch bei der Eingabe eingefügt werden.
Bei einer Textbox mit Zeiteingabe habe ich das hinbekommen, nur in diesem Fall geht gar nichts :(
Ich bedanke mich schon mal für jede Hilfe.
Gruß Oliver

Hi Oliver,
füge diesen Code ins Modul deines Userforms ein
(beachte: bei mir heißt die Textbox = TextBox1 - wenn sie bei dir einen anderen Namen hat, musst du TextBox1 gegen deinen Namen austauschen)

Private Sub TextBox1_Change()
If pboUndo = True Then
pboUndo = False
Exit Sub
End If
With TextBox1
Select Case Len(.Text)
Case 1
If Asc(.Text) >= 65 And _
Asc(.Text)  "B" And _
.Text  "C" And _
.Text  "Z" Then
pboUndo = True
.Text = pstrTxt
Exit Sub
End If
Else
pboUndo = True
.Text = pstrTxt
Exit Sub
End If
Case 2, 3
If Not IsNumeric(Right(.Text, 1)) Then
pboUndo = True
.Text = pstrTxt
Exit Sub
End If
If Len(.Text) = 3 Then
pboUndo = True
.Text = .Text & "."
End If
Case 5, 6, 7
If Not IsNumeric(Right(.Text, 1)) Then
pboUndo = True
.Text = pstrTxt
Exit Sub
End If
If Len(.Text) = 7 Then
pboUndo = True
.Text = .Text & "."
End If
Case 9, 10
If Not IsNumeric(Right(.Text, 1)) Then
pboUndo = True
.Text = pstrTxt
Exit Sub
End If
Case 11
pboUndo = True
.Text = pstrTxt
Exit Sub
End Select
pstrTxt = .Text
End With
End Sub

Private Sub UserForm_Activate()
pstrTxt = TextBox1.Text
End Sub

Hilfts?
Wenn nicht, zeig uns bitte per Upload deine Excel-Datei mit deinem Userform.
Ciao
Thorsten

Excel VBA Userform Textbox in bestimmtes Format

Forumthread: Excel VBA Userform Textbox in bestimmtes Format

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial