In einer Textbox sollen nur Zahlen eingegeben werden die nach dem verlassen in Euro umgewandelt werden sollen. Die Eingabe soll zB. 123 sein und das Ergebnis 1,23 und NICHT 123,00 .
Hier mein Code:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1.Text) = 0 Then Exit Sub
If Not Right(TextBox1, 1) Like "[0-9.,]" Or TextBox1.TextLength > 3 Then
Beep
MsgBox "Bitte nur Zahlen von 0 - 9 eingeben." & vbCr & "max. 9,99 Euro", vbExclamation Or vbOKOnly, "Betrag fehlerhaft !"
With TextBox1
.SetFocus
.SelStart = TextBox1.TextLength - 1
.SelLength = 1
End With
End If
TextBox1.Value = Format(TextBox1.Value, "#,##0.00 ")
End Sub
Was mache ich bei Format und bei der Längenabfrage Falsch.
Gruß Rudi