Parameterisiertes Auslösen von Doppelclick-Ereignissen möglich?

[VBATartar]

Hallo VBA-Sportler,

ich habe eine Unmenge von TextBoxen auf meiner Userform. Durch das  Auslösen von Maus-UP, Maus-Down bzw. Doppelclick-Ereignissen dieser Textboxen

Code:

Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'Aufruf einer Funktion
End Sub

soll dann eine Funktion aufgerufen werden. So weit so gut. Jetzt meine Frage. Muss ich für jede Textbox, die ich auf der Userform habe und z.B. ein Doppelclick-Ereignis auslösen möchte, einen solchen Code wie oben angegeben schreiben oder kann ich ich das irgendwie parameterisieren und vereinfachen. Ich erinnere an dieser Stelle mal an diesen Befehl:

Me.Controls("TextBox" & i), der in gewissen Grenzen ein verallgemeinertes Ansprechen von Textboxen erlaubt.

Liebe VBA Profis schreibt mir bitte auch, wenn das nicht geht (was ich sehr stark annehme).

[Steffl]

Hallo,

das könnte mit einer Klassenprogrammierung gehen

Klassenprogrammierung

[RPP63]

Hallo auch von mir!

ich habe eine Unmenge von TextBoxen auf meiner Userform.

Imho liegt bereits hier der Hase im Pfeffer. 
Eine "Unmenge" verwalte ich eher in einem Tabellenformular.
Da habe ich nämlich tatsächlich eine Unmenge zur Verfügung:
2^20*2^14 = 17.179.869.184 "Textboxes" aka Zellen.
Es dürften auch genügend Events zur Verfügung stehen, dessen Target man dann simpel auswertet, bevor man mühselig ein UserForm zusammenzimmert und sich in die Klassenprogrammierung einarbeiten muss.

Gruß Ralf

[schauan]

Hallöchen,

man kann aber auch beides kombinieren. Man hinterlegt in einem Tabellenblatt Parameter o.a. für die TextBoxen und erzeugt selbige per Klassenprogrammierung.