Guten Morgen!!! Ich hoffe von euch kann mir jemand helfen, ich hab folgendes Problem, ich möchte das der Kunde im Eingabefeld (text1) keine Umlaute eingeben kann.... Mein Script dafür wäre:

Text1.Text = Eingabe

If Eingabe = "ä" Then

MsgBox "Sie können keine Umlaute eingeben", vbInformation

ElseIf Eingabe = "ö" Then

MsgBox "Sie können keine Umlaute eingeben", vbInformation

ElseIf Eingabe = "ü" Then

MsgBox "Sie können keine Umlaute eingeben", vbInformation

Else

MsgBox "Ihre Eingabe war korrekt!", vbInformation

End If

End Sub

Aber es kommt immer nur Ihre Eingabe war korrekt, egal was ich eingebe!!! Könnt ihr mir da helfen? Vielen Dank

Gruss

JP

Tach Post!

Lege doch einfach deinen Prüfcode im Keypress Ereignis ab. Das könnte dann so ausschauen:

Private Sub Text1_KeyPress(KeyAscii As Integer)

Select Case KeyAscii

Case 228 ' ä

MsgBox "Sie können keine Umlaute eingeben", vbInformation

KeyAscii = 0

Case 246 ' ö

MsgBox "Sie können keine Umlaute eingeben", vbInformation

KeyAscii = 0

Case 252 ' ü

MsgBox "Sie können keine Umlaute eingeben", vbInformation

KeyAscii = 0

Case Else

MsgBox "Ihre Eingabe war korrekt!", vbInformation

End Select

End Sub

Ich habe das jetzt nur mal für die kleinen Umlaute gemacht... Damit kann man aber auch recht einfach die Eingabe aller Umlaute, Sonderzeichen, Steuerzeichen... verhindern. Man muß halt nur die einzelnen Fälle anpassen. Man kann auch recht gut mit < und > arbeiten. Das KeyAscii = 0 verhindert, daß das Zeichen angezeigt wird.

Ich hoffe mal, es hat geholfen.

Vielen Dank für deine Hilfe!!!! Schönen Tag noch

Gruss

JP