| | | MDG Engineering Nutzt Xometry, Um Medizinische Geräte Zu Bauen Und Das Globale Wachstum Voranzutreiben, ein Anwenderbericht
|
Autor
|
Thema: VB-Programmierung - Dezimaltrennzeichen prüfen (2875 mal gelesen)
|
copymaster Mitglied TZ
Beiträge: 33 Registriert: 15.02.2004 PROE WF3
|
erstellt am: 27. Okt. 2007 20:24 <-- editieren / zitieren --> Unities abgeben:
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 |
Paulchen Mitglied Bauing./SW-Entwickler
Beiträge: 1227 Registriert: 19.08.2004 Büro: Win10 Enterprise 64bit, Office Professional Plus 2013 - Privat: Linux Mint 15, LibreOffice
|
erstellt am: 27. Okt. 2007 21:45 <-- editieren / zitieren --> Unities abgeben: Nur für copymaster
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 |
Beverly Mitglied Dipl.-Geologe (Rentner)
Beiträge: 395 Registriert: 11.08.2007
|
erstellt am: 28. Okt. 2007 06:45 <-- editieren / zitieren --> Unities abgeben: Nur für copymaster
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 |
copymaster Mitglied TZ
Beiträge: 33 Registriert: 15.02.2004 PROE WF3
|
erstellt am: 02. Nov. 2007 13:24 <-- editieren / zitieren --> Unities abgeben:
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|