VBA: Namen von Textfeldern, die von control.add erstellt wurden, konnten nicht gefunden werden. Schleife

Question

Ich habe Textfelder mit der control.add-Schleife erstellt, aber ich konnte ihre Werte nicht ändern. Ich möchte ihre Namen tb1, tb2 ...

Private Sub UserForm_Initialize() 
    For i = 1 To 10 
    Dim cCntrl As Control 
     Set cCntrl = Me.Controls.Add("Forms.textbox.1", "tb" & i) 
    Next 
    tb4 = "b" 
    End Sub 

Answer 1

Sie können nicht über Namen auf die Steuerelemente zugreifen, da der Compiler nicht über diese Namen weiß. Stattdessen können Sie die Steuerelemente einem Array zuweisen. Wahrscheinlich möchten Sie nicht nur beim Initialisieren auf die Steuerelemente zugreifen, sondern es als global deklarieren.

Option Explicit 

Dim ctrlArr(1 To 10) As Control, i As Long 

Private Sub UserForm_Initialize() 

    For i = 1 To 10 
     Set ctrlArr(i) = Me.Controls.Add("Forms.textbox.1", "tb" & i) 
     ctrlArr(i).Top = i * 20 
    Next 
    ctrlArr(4).value = "b" 

End Sub