"#,##0.00" in "#,##0.00%" abzuändern geht nicht; keine Eingabe in der Textbox. Als zweites Argument soll die Textbox leer bleiben, wenn keine Zahl eingegeben wird.
Private Sub Coupon_AfterUpdate()
Coupon = Format(Coupon, "#,##0.00")
End Sub
Private Sub Coupon_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(Coupon) Then
Coupon = ""
Cancel = True
End If
End Sub
Sicherlich hat jemand eine Antwort.
Vorab schon mal besten Dank.
Proxima