durch vba erstellte textbox ansprechen

Hallo zusammen,
ich habe mir eine Art dynamisches Formular erstellt (siehe Anhang).
Dort läuft eine Schleife und nimmt für jede Zeile in der Tabelle eine Textbox und schreibt den Inhalt der aktuellen Zelle in diese Textbox.
Nun möchte ich aber auf das ändern dieser Textbox reagieren, wenn ein Nutzer nach dem Anzeigen dort ggf. neue Daten einträgt, dann sollen diese wieder in die Tabelle zurückgeschrieben werden. Im Regelfall leicht umzusetzen. Wie mache ich das aber, wenn ich gar nicht weiß, wie viele Textboxen entstehen. Es können ja je nach Tabelle mal 10 oder 20 oder auch nur 5 sein. Wie kann ich hier das Exit Ereignis oder das AfterUpdate Ereignis abfangen?
Vielen Dank für Eure Hilfe!
Hier die Datei
https://www.herber.de/bbs/user/75558.xls
Viele Grüße
Jürgen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Private Sub CommandButton1_Click() Dim ctrElement As Control For Each ctrElement In Me.Controls If TypeName(ctrElement) = "TextBox" Then Worksheets("Tabelle1").Range(ctrElement.Tag) = _ ctrElement Next ctrElement End Sub

Hallo Jürgen,
In deinem Userform:

Option Explicit
Dim colTxt As New Collection
Private Sub UserForm_Initialize()
Dim objCls As clsTxt
Dim sngTop As Single
Dim i As Long
Const sngDIST As Single = 25
sngTop = sngDIST
For i = 2 To Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row
Set objCls = New clsTxt
Set objCls.cntrTxt = Me.Controls.Add("forms.TextBox.1", "txt_" & i, True)
With objCls.cntrTxt
.Left = 15
.Top = sngTop
.Height = 18
.Width = 60
.Value = Tabelle1.Cells(i, 2)
End With
sngTop = sngTop + sngDIST
colTxt.Add objCls
Next
Me.Height = sngTop + sngDIST
Set objCls = Nothing
End Sub

des Weiteren in einem Klassenmodul (mit dem Namen "clsTxt"). Hier stehen dir die Events zur Verfügung. Diese gelten dann für alle Textboxes.

Option Explicit
Public WithEvents cntrTxt As MSForms.TextBox

achja, und der Code zum Aufrufen des Userforms im Klassenmodul der Tabelle1:

Option Explicit
Private Sub cmdFrmAufrufen_Click()
UserForm1.Show
End Sub

Gruß
Christian

Option Explicit Dim colTxt() As New clsTxt Private Sub UserForm_Initialize() Dim objCls As clsTxt Dim sngTop As Single Dim i As Long Const sngDIST As Single = 25 sngTop = sngDIST For i = 2 To Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row Set objCls = New clsTxt Set objCls.cntrTxt = Me.Controls.Add("forms.TextBox.1", "txt_" & i, True) With objCls.cntrTxt .Left = 15 .Top = sngTop .Height = 18 .Width = 60 .Tag = Cells(i, 2).Address .Value = Tabelle1.Cells(i, 2) End With sngTop = sngTop + sngDIST ReDim Preserve colTxt(1 To i - 1) Set colTxt(i - 1).cntrTxt = objCls.cntrTxt Next Me.Height = sngTop + sngDIST End Sub

Beliebteste Forumthreads (12 Monate)

durch vba erstellte textbox ansprechen

7
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)

durch vba erstellte textbox ansprechen

7 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)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread