Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
776to780
776to780
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform Textfelder

Forumthread: Userform Textfelder

Userform Textfelder
29.06.2006 19:03:19
Girstmair
Hallo Ihr Profis, bin wieder einmal da und weiß nicht mehr weiter.
Habe in einer Userform 37 Textfelder in welchen ich die Eingabe auf die Zahlen 0 bis 5 begrenzen, 20 Textfelder von 0 bis 2 und 36 Texfelder in denen ich die Eingabe von 0 und 1 begrenzen muss.
Habe in den Eigenschaften der Textfelder zwar eine Option gefunden in der ich die Eingabe auf 1 Zahl begrenzen kann, doch keine Begrenzung von 0-5 usw..
Meine Textfelder sind fortlaufend mit TextBox1 bis Textbox93 bezeichnet.
Bitte um Hilfe!
Vielen Dank im Voraus!!!!
Hansjörg
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform Textfelder
29.06.2006 19:42:10
fcs
Hallo Hansjörg,
mit folgenden Makros kannst du die Eingabe auf die gewünschten Ziffern/Zeichen begrenzen.
Dazu muß du für jede Textbox ein Makro erstellen, das die entsprechende Prozedur aufruft.
Zusätzlich muß du für alle Boxen die Eigenschaft MaxLength auf 1 setzen.
mfg
Franz

'prozeduren je Box zu Eingabeüberwachung
Private Sub Textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Call Eingabe0bis5(KeyAscii)
End Sub
Private Sub Textbox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Call Eingabe0und1(KeyAscii)
End Sub
Private Sub Textbox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Call Eingabe0bis2(KeyAscii)
End Sub
'Prüfprozeduren
Private Sub Eingabe0bis5(KeyAscii)
'   nur Ziffern können in Textbox eingegeben
Select Case KeyAscii
Case 48 To 53 'Ziffern 0 bis 5
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub Eingabe0bis2(KeyAscii)
'   nur Ziffern können in Textbox eingegeben
Select Case KeyAscii
Case 48 To 50 'Ziffern 0 bis 2
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub Eingabe0und1(KeyAscii)
'   nur Ziffern können in Textbox eingegeben
Select Case KeyAscii
Case 48 To 49 'Ziffern 0 bis 1
Case Else
KeyAscii = 0
End Select
End Sub

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige