Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1196to1200
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
UF Textbox Komma durch Punkt ersetzen
Beni
Hallo Excel-Freaks,
wie kann man in Textboxen bei Eingabe von Komma, das Komma durch Punkt ersetzen.
Wenn ich mit VBA den Inhalt lösche, löscht es die Zahlen, aber das Komma bleibt bestehen.
In der Schweiz haben wir das Zahlerformat mit Punkt.
Eine brauchbare Lösung wäre Supppper
Gruss Beni

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: UF Textbox Komma durch Punkt ersetzen
29.01.2011 16:27:06
Tino
Hallo,
für so etwas habe ich eine solche Funktion im Einsatz damit man nur Zahlen eingeben kann.
Private Sub TextBox1_KeyPress(ByVal intKeyAsc As MSForms.ReturnInteger)
 intKeyAsc = OnlyNumbers(TextBox1, CInt(intKeyAsc))
End Sub

'Funktion zum prüfen einer Textbox ---> Nur Zahlen zulassen 
Private Function OnlyNumbers(objTextBox As MSForms.TextBox, intKeyNumber As Integer) As Integer
Dim PunktOderKomma As String
    
PunktOderKomma = IIf("0.5" * 2 = 1, ".", ",")

If intKeyNumber = 44 Or intKeyNumber = 46 Then
        If InStr(objTextBox, PunktOderKomma) = 0 And Len(objTextBox) > 0 Then
          OnlyNumbers = Asc(PunktOderKomma)
        Else
          OnlyNumbers = 0
        End If
 Else
        Select Case intKeyNumber
         Case 48 To 57: OnlyNumbers = intKeyNumber
         Case Else: OnlyNumbers = 0
        End Select
 End If

End Function
Gruß Tino
Anzeige
AW: UF Textbox Komma durch Punkt ersetzen
29.01.2011 17:02:09
Beni
Hallo Tino
musste es noch umbauen, Punkte sind erlaubt.
Viiiiiiiiiiiielen Dank
Beni
AW: UF Textbox Komma durch Punkt ersetzen
29.01.2011 17:25:36
Tino
Hallo,
es kommt aber auf die Systemeinstellung an
was verwendet werden kann, um im VBA damit rechnen zu können.
Bei mir ist es das Komma und da kommt bei CSng("0.5") = 5 raus.
Wenn Du in Excel (Zelle) einen String als Zahl schreiben willst, dann ist es der Punkt.
Aber da würde ich die bekannten Umwandlungsfunktionen einsetzen.
Gruß Tino

329 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige