Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon enibas74 vom 11.07.2019, 22:11 Options

UserForm Textfeldeingabe begrenzen

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 schreiben

Antwort 1 von fedjo vom 14.07.2019, 09:13 Options

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

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken