HERBERS Excel-Forum - das Archiv

Thema: Eingabe in Textbox, nur Text eingeben mit Warnmeldung

Eingabe in Textbox, nur Text eingeben mit Warnmeldung
sigrid
Hallo,
ich habe dieses Makro gefunden um in der Textbox nur Text einzugeben,
klappt soweit.
Ich weiß allerdings nicht wo ich jetzt eine MSGBOX als Warnmeldung einsetzen soll.
Private Sub TextBox10_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If Chr(KeyAscii) Like "[a-z A-Z Ä ä Ö ö Ü ü . - ß]" = False Then KeyAscii = 0
End Sub


mfg sigrid
Probiere es...
Case
Moin, :-)

...so: ;-)
Private Sub TextBox10_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If Chr(KeyAscii) Like "[a-z A-Z Ä ä Ö ö Ü ü . - ß]" = False Then KeyAscii = 0: MsgBox "Kein Text!"
End Sub

Servus
Case
Danke Case, funktioniert gr.sigrid -)
sigrid