---

Hallo zusammen,

bin zur Zeit dabei in Excel mit VB zu programmieren.
Mein Problem: Werden in den erstellten Textfeldern Zahlenwerte eingegeben muss dies normalerweise mit einem Komma als Dezimaltrennzeichen geschehen. Wird stattdessen ein Punkt eingegeben, wird der Wert nicht oder Flasch berücksichtigt.
Ist es möglich die Eingabe im Programm zu überprüfen, evtl. auch anzupassen?
(Mit "IsNumeric(WERTxxx)" ist eine prüfung nicht möglich.)

Danke schon mal...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo copymaster,

Code:

---

Dim Var
Var = InputBox("Zahl:", "Eingabe", 1.23)
Var = Replace(Var, ".", ",")

---

Selbst, wenn kein Punkt eingegeben wurde, hängt sich Replace nicht auf ;-). Achtung: UNBEDINGT genau auf das Dezimaltrennzeichen achten (Debugmodus, F8)! Wissenschaftlich-offiziell (und auch englisch) ist es ein . - in der deutschen xls-Version wird . zu , und , zu ;  IsNumeric kann hier auch nützlich sein: ... if not isnumeric... ?!

Gruß,
Frederik

------------------
DIN1055.de  |  Lastannahmen für Anwender

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

wenn es sich um TexBoxen handelt, dann kannst du das so lösen

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    TextBox1 = Replace(TextBox1, ".", ",")
End Sub

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

danke euch beiden für diesen Hinweis. Werd das mal probieren 

Viele Grüße
Bastian

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP