Ich habe eine große UserForm gebastelt mit vielen TextBoxen. Kann man ein TextBox mit VBA so formatieren, dass man den Punkt nicht mehr eingeben muss. z.B. man tippt 11012007 und beim Verlassen des TextBoxes wird aus dem eingegeben Datum 11.01.2007? Ich hab etwas ähnliches aus dem Forum hier - mann gibt eine Zahl ein und sie wird umformatiert. Aus 123456 wird automatisch 123/45/6. Hier der Code:
Private Sub TextBox4_Change()
Dim i As Integer, s1 As String, s2 As String
s1 = Trim(Me.TextBox4.Text)
''alle "/"-Zeichen entfernen
s1 = Replace(s1, "/", "", 1, -1)
i = Len(s1)
Select Case i
Case 0 To 3: ''nichts machen
Case 4: s2 = " 0\/00\/0"
Case 5: s2 = "00\/00\/0"
Case Else: s2 = "000\/00\/0"
End Select
Me.TextBox4.Value = Format(s1, s2)
End Sub
Leider kriege ich es nicht hin diesen Code so anzupassen.
Wer hat eine Idee?
Gruß
Mister B