Wer kann mir diesen Code umbauen?
Userform -Textbox2 sollen nur Ziffern hinein geschrieben werden.
Möchte gerne bei Anschlag eines Buchstaben, das sofort eine msgbox erscheint
"nur Zahlen eingeben"
---------------------------------------------------------------------------------------------------------------------
' nur ZIFFERN Textbox 2 = PLZ
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Chr(KeyAscii) Like "[0-9]" = False Then KeyAscii = 0
End Sub
-------------------------------------------------------------------------------------------------------------------
Userform-Textbox3 sollen nur Buchstaben hinein geschrieben werden.
Möchte gerne bei Anschlag einer Ziffer, das sofort eine msgbox erscheint
"nur Buchstaben eingeben"
------------------------------------------------------------------------------------------------------------------
' nur BUCHSTABEN, Punkt und Bindestrich Textbox 3 = Ort
Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Chr(KeyAscii) Like "[a-z A-Z Ä ä Ö ö Ü ü . - ß]" = False Then KeyAscii = 0
End Sub
---------------------------------------------------------------------------------------------------
LG feuerharry