Supportnet / Forum / Tabellenkalkulation
UserForm Textfeldeingabe begrenzen
Frage
Hallo,
vielleicht kann mir ja jemand helfen. Und habe ich auf einer UserForm ein Textfeld. Hier kann nur an 1. Stelle ein Buchstabe (A , B , C , D , E , G) stehen und an 2. Stelle eine Zahl von 1 bis 5 sprich am Ende Kombinationen wie A3 oder B4 .... .Andere Eingaben sind nicht möglich. Ist das mit Hilfe von VBA möglich?
Vielen Dank für eine Rückantwort aus Fachkreisen.
Mfg
Sabine
Antwort 1 von fedjo
Hallo Sabine,
der Code blendet die UserForm aus, wenn zuerst eine Zahl eingegeben wird. Die Eingaben werden auch auf 2 Stellen begrenzt.
Private Sub TextBox1_Change()
If IsNumeric(TextBox1.Value) = True Then
UserForm2.Hide
End If
With TextBox1
If Len(.Text) > 2 Then .Text = Left$(.Text, 2)
End With
End Sub
Oder man kann die Eingaben auch auf Zahlen begrenzen.
Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
Ich hoffe es hilft dir weiter.
Gruß
fedjo
der Code blendet die UserForm aus, wenn zuerst eine Zahl eingegeben wird. Die Eingaben werden auch auf 2 Stellen begrenzt.
Private Sub TextBox1_Change()
If IsNumeric(TextBox1.Value) = True Then
UserForm2.Hide
End If
With TextBox1
If Len(.Text) > 2 Then .Text = Left$(.Text, 2)
End With
End Sub
Oder man kann die Eingaben auch auf Zahlen begrenzen.
Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
Ich hoffe es hilft dir weiter.
Gruß
fedjo