UF TextBox Format
03.02.2009 11:40:24
Mister
im Forum vor langer Zeit habe ich folgender Code bekommen. Er regelt das Zahlenformat in einem Textbox. Ich gebe 4 bis 6 Zahlen ein und das Format wird automatisch umgewandelt in 123/ 08 / 2 (Beispl). Die Zahl vor dem Strich besteht aus 1 bis 3 Ziffern, die zweite Zahl aus 2 Ziffern und die letzte Zahl aus 1 Ziffer. Diese formatierte Zahl wird dann später in eine Zelle geschrieben. Bis Gestern lief der Code einwandfrei. Ich versuche die Zahl 11094 einzugeben aber ich glaube, dass Excel ein Datum daraus machen will weil 09.11.2004 in die Zelle geschrieben wird. Hat jemand eine Idee?
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
Danke und Gruß
Martin
Anzeige