Hallo
In einer Textbox soll geprüft werden das die korrekte Währung eingeben wird.
Wenn, Buchstaben eingeben werden soll eine MsgBox aufgehen.
Ich habe zwar ein Code aber da funktioniert nicht so richtig.
Hier ist mein Code:
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error GoTo errhandler
TextBox3.Text = Format(TextBox3.Text, "#,##0.00€") 'in € umwandeln 1111
Exit Sub
errhandler:
MsgBox "Kein gültiges Datum bitte nur Datum eingeben!"
Cancel = True
With TextBox3
.SelStart = 0
.SelLength = 8
.SetFocus
End With
Wie müsste der Code richtig lauten?
Kann jemand helfen?
Gruß Marta