Textbox auf 'tausender erhöhen incl. Komma
k
habe folgenden Code, um den Inhalt einer Textbox so anzupassen beim verlassen, dass aus einer eingegebener Zahl die kleiner 1.000 ist, diese * 1.000 genommen wird, bzw. wenn >1.000 soll nichts gemacht werden.
Zudem soll der Inhalt der Textbox im Format "Tausend - Euro" ausgeworfen werden.
Aber wie kann ich es optimieren, dass man auch z.B. 48,5 eingeben kann für 48.500 ?!
Da ich die KeyPress-Prüfung drin habe = Zahlen - nimmt er das Komma nicht an - wie kann ich es anpassen ?! Denn es sollen nur Zahlen mit Punkt und Komma möglich sein....
Also: 48.5 = 48,5 = 48.500 !
Private Sub TB57_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii 'Prüfung bei Eingabe, ob wirklich "Zahlen" eingegeben werden
Case 48 To 57
Case Else:
KeyAscii = 0
End Select
End Sub
Private Sub TB57_exit(ByVal Cancel As MSForms.ReturnBoolean)
a = Len(TB57.Text) ' Übergabe der Länge des Textes an a
If a > 4 Then
TB57.Value = Format(TB57.Value, "#,##0.00 ")
Else
TB57.Value = Format((TB57.Value * 1000), "#,##0 ")
End If
End Sub
Anzeige