Code im Modul ablegen und in UF aufrufen

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)() ' Das Makro verhindert die Eingabe von Buchstaben ' in einer TextBox, indem die Tastatur ' dauernd abgefragt wird. Nur Komma und Punkt sind erlaubt. Select Case KeyAscii ' 0 - 9 Case 48 To 57 ' Komma Case 44 ' Punkt Case 46 Case Else Beep KeyAscii = 0 MsgBox String(5, 32) & "Hier dürfen nur Zahlen eingegeben werden. ", -8 End Select End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub Eingabe(ByVal KeyAscii As MSForms.ReturnInteger) ' Das Makro verhindert die Eingabe von Buchstaben ' in einer TextBox, indem die Tastatur ' dauernd abgefragt wird. Nur Komma und Punkt sind erlaubt. Select Case KeyAscii ' 0 - 9 Case 48 To 57 ' Komma Case 44 ' Punkt Case 46 Case Else Beep KeyAscii = 0 MsgBox String(5, 32) & "Hier dürfen nur Zahlen eingegeben werden. ", -8 End Select End Sub

Hallo,
mache es bitte nicht wie Werner vorgeschlagen hat.
Erstelle ein Klassenmodul mit einem griffigen Namen, z.B. "InputRestrictions"
Dort schreibst du folgendes rein:
(hier eine Test datei: https://www.herber.de/bbs/user/119090.xlsm )

Option Explicit
Public WithEvents clsNumberLimitedTextbox As MSForms.TextBox
Private Sub clsNumberLimitedTextbox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57
Case 44, 46
Case Else: KeyAscii = 0
End Select
End Sub

In dein Initialize Event der Userform kannst du dann folgendes schreiben:

Option Explicit
Option Base 1
Private restrictedObject() As InputRestrictions
Private Sub UserForm_Initialize()
'Ohne Loop
ReDim restrictedObject(2)
Set restrictedObject(1) = New InputRestrictions
Set restrictedObject(2) = New InputRestrictions
Set restrictedObject(1).clsNumberLimitedTextbox = Me.TextBox1
Set restrictedObject(2).clsNumberLimitedTextbox = Me.TextBox2
'mit Loop
Dim i As Long
ReDim restrictedObject(2)
For i = LBound(restrictedObject) To UBound(restrictedObject)
Set restrictedObject(i) = New InputRestrictions
Set restrictedObject(i).clsNumberLimitedTextbox = Me.Controls("TextBox" & i)
Next i
End Sub

EventHandler die du auf viele Objekte setzen willst, immer in einer Klasse nieder schreiben!
Von einem Beep sub rate ich ebenfalls ab, der Anwender merkt früh genug dass er
nur Zahlen eintippen kann und für Hinweise von Eigenschaften eines Objektes ist
der ControlTipText geeignet.
Wenn du per Label oder generell durch das design klar machst, dass dort nur Zahlen reinkommen,
dann brauchst du keinen Ton der es verdeutlicht.
Die meisten User haben sowie in der Arbeit den Ton aus.

Beliebteste Forumthreads (12 Monate)

Code im Modul ablegen und in UF aufrufen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Code im Modul ablegen und in UF aufrufen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread