wie kann ich bei Laufzeitgenerierten TextBoxen das Change ereignis deklarieren, um z.B. Zahleneingaben in das Zahlenformat zu werfen.
LG Chris
Option Explicit
Dim oTxtBox() As New clsMyUF
Private Sub UserForm_Initialize()
Dim i As Integer
Const h As Integer = 18, w As Integer = 50
ReDim oTxtBox(1 To 5)
For i = 1 To 5
Set oTxtBox(i).myTxtBox = Me.Controls.Add("forms.textbox.1")
With oTxtBox(i).myTxtBox
.Left = 70
.Top = (i - 1) * (h + 10) + 20
.Width = w
.Text = "Text_" & Chr(i + 64)
End With
Next i
cmdOK.Top = oTxtBox(5).myTxtBox.Top + h + 20
Me.Height = cmdOK.Top + cmdOK.Height + 40
End Sub
Option Explicit
Public WithEvents myTxtBox As MSForms.TextBox
Private Sub myTxtBox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'nur Ziffern und , zulassen
Select Case KeyAscii
Case 44, 48 To 57
Case Else: KeyAscii = 0
End Select
End Sub
GrußDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen