TextBox_Exit?
ExcelFrage
ich möchte dynmisch auf TextBoxen zugreifen. Dafür habe ich ein Klassenmodul und einen Code in der jeweiligen UserForm.
Der Code des Klassenmoduls (Name des Moduls: CTextBox):
Option Explicit
Public WithEvents e_TextBox As MSForms.TextBox
Private Sub e_TextBox_Exit(ByVal Cancel As MSForms.ReturnBoolean)
MsgBox "Das geht leider nicht ..."
End Sub
Der Code in der UserForm:Option Explicit
Dim m_colTextBoxes() As New CTextBox
Private Sub UserForm_Activate()
Call InitTextBoxes
End Sub
Sub InitTextBoxes()Dim ctl As Control
Dim nCtls As Integer
For Each ctl In Me.Controls
If TypeOf ctl Is MSForms.TextBox Then
nCtls = nCtls + 1
ReDim Preserve m_colTextBoxes(1 To nCtls)
Set m_colTextBoxes(nCtls).e_TextBox = ctl
End If
Next ctl
End Sub
Wenn im Klassenmodul e_TextBox_Change() steht, dann funktioniert es so wie ich es will. Wenn ich es mit e_TextBox_Exit(ByVal Cancel ...) probiere, dann funktioniert es überhaupt nicht.
Kann mir da jemand helfen, dass es auch bei Exit funktioniert?
Vielen Dank