Ereignis vergeben
28.08.2008 13:40:00
Captian
ich erstelle auf meiner Userform zwischen 1-600 Textfelder zur Laufzeit. Funktioniert auch gut.
Jetzt würde ich gerne jedem Textfeld, welches mit dem Zeichen "$" beginnt, eine Prozedur zuweisen - per Klassenmodul.
Funkt aber nicht so ganz...und warum? - Keine Ahnung :-(
Dim aTBChange(3000) As New clsTextBox
inta = 1
For Each CTL In Me.Controls
If CTL.Name Like "$*" Then
Set aTBChange(inta).DieTBChange = MyTextBox
inta = inta + 1
Else
End If
Next CTL
Mein Klassenmodul: clsTextBox
Public WithEvents DieTBChange As MSForms.TextBox
Private Sub DieTBChange_Change()
'nur zum testen
MsgBox DieTBChange.Name
End Sub
Was läuft hier verkehrt?
Danke
Jack
Anzeige