Merkwürdige TextBox-Ausgabe
Pixeldieb
wenn ich bei dem unten geschrieben Code in die Textbox den Betrag "500.000" eingebe, bekomme ich als Eintrag in die Zielzelle eine "500" geschrieben. Wenn ich dagegen "1.000.000" eingebe, bekomme ich auch "1.000.000" als Ergebnis. Wie kommt so etwas zustande und wie kann ich es vermeiden?
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'BETRAG
If TextBox1 >= 500000 And IsNumeric(TextBox1) Then
TextBox1 = Format(TextBox1, "#,###")
Else
TextBox1 = ""
MsgBox "Bitte geben Sie einen gültigen Betrag ein", 64, "Betrag"
Cancel = True
End If
End Sub