Keypress für viele Textboxen

Private Sub TextBox1_KeyPress, TextBox2_KeyPress, TextBox3_KeyPress, TextBox4_KeyPress, _ TextBox5_KeyPress, TextBox6_KeyPress, TextBox7_KeyPress, TextBox8_KeyPress (ByVal KeyAscii As _ _ MSForms.ReturnInteger) Select Case KeyAscii Case 48 To 57 'falls Kommas oder Punkte auch erlaubt sein sollen, muss das Case erweitert werden 'Case 48 To 57, 43 To 46 Case Else: KeyAscii = 0 MsgBox "Es sind nur Ziffern erlaubt!", _ vbInformation, "Hinweis" End Select End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Dim objTextBox(1 To 50) As New clsUserForm 'anpassen Private Sub UserForm_Initialize() Dim objControl As Control, i As Integer For Each objControl In Me.Controls If TypeName(objControl) = "TextBox" Then i = i + 1 Set objTextBox(i).myTextBox = objControl End If Next End Sub

Option Explicit Public WithEvents myTextBox As MSForms.TextBox Private Sub myTextBox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case 48 To 57 'falls Kommas oder Punkte auch erlaubt sein sollen, muss das Case erweitert werden 'Case 48 To 57, 43 To 46 Case Else: KeyAscii = 0 MsgBox "Es sind nur Ziffern erlaubt!", _ vbInformation, "Hinweis" End Select End Sub

Hi
Kann man mit Klassen machen.
Muss man aber verstehen, mir persönlich ist das zu kompliziert.
Bei vielen Eingabewerten könnte man sich auch mit einer Listbox und einer einzigen Textbox behelfen.
Dabei wird dann der Textboxwert in die Ausgewählte Zeile der Listbox geschrieben.
Das ergibt dir mit nur zwei Steuerelementen eine beliebige Zahl von Eingabefeldern (je nach Anzahl der Elemente, die du zuvor der Listbox hinzugefügt hast).
Du benötigst nur zwei kleine Makros:
a) im Click-Event der Listbox:

Textbox1.Text = Listbox1.Text

b) im Change-Event der Textbox:

with Listbox1
if .ListIndex >= 0 then .List(.ListIndex) = Textbox1.Text
End With

Dh bei Auswahl eines Listboxeintrags wird der Listbox Wert in die Textbox geschrieben und bei Änderung in der Textbox wird der ausgewählte Listboxwert geändert.
Wenn man für jede Eingabe noch einen Hinweistext braucht, dann kann man mit einer zweispaltigen Listbox arbeiten und in der ersten Spalte den Hinweistext anzeigen.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Keypress für viele Textboxen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread