Wie kann ich in VBA herausfinden, ob ein Komma in einem Wert steht?

... komplette Frage anzeigen

2 Antworten

Dim booKomma As Boolean
booKomma = InStr(TextBox1.Text, ",")
Debug.Print booKomma


Antwort bewerten Vielen Dank für Deine Bewertung
Kommentar von agent888
12.03.2016, 11:22

Danke für deine Antwort! Hat funktioniert!

0

Wenn du sicher gehen willst das nur Zahlen und nur EIN Komma eingetragen werden darf. (Dezimalzahlen) dann so:

 

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
  Case 8, 48 To 57
  KeyAscii = KeyAscii
  Case 44, 46
    Select Case InStr(1, TextBox1.Text, ",")
        Case Is > 0
            KeyAscii = 0
        Case Else
            KeyAscii = 44
    End Select
  Case Else
    KeyAscii = 0
End Select
End Sub
Antwort bewerten Vielen Dank für Deine Bewertung

Was möchtest Du wissen?