Wie kann ich in VBA herausfinden, ob ein Komma in einem Wert steht?
Hi, ich habe in VBA ein Formular programmiert und möchte nun Kommawerte abfangen. Wie kann ich prüfen ob ein Komma in einem Textfeld steht? Danke für die Antworten schon im Voraus!
2 Antworten
Nutzer, der sehr aktiv auf gutefrage ist
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
Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer
Microsoft Excel
Dim booKomma As Boolean
booKomma = InStr(TextBox1.Text, ",")
Debug.Print booKomma
Woher ich das weiß:Berufserfahrung – IT-Administrator (i.R.)
Danke für deine Antwort! Hat funktioniert!