kontrolarray i VBA Excel

Hvis dine felter hedder Text1-5 så kan du f.eks. gøre det således:
For i = 1 To 5
    Me.Controls("Text" & i).Value = "Textf....."
Next i

Yep - det ved jeg godt. Men kan man ikke lave et "rigtigt" kontrolarray?

Kontrolarray'et som du taler om er allerede lavet - det hedder Me.Controls - det er selvfølgelig alle controls, om du kan lave det kun med text-felter har jeg ikke set før, men måske.
Jeg kunne finde på at lege med det således:

For Each ctrTemp In Me.Controls
    Select Case TypeName(ctrTemp)
        Case "TextBox"
            ' Something
        Case "CheckBox"
            ' Something
        Case Else
            ' Nothing
    End Select
Next

Det jeg eftersøgte var muligheden for at lave en masse kontroller (fx. textboxe) med SAMME navn og et index, altså MinTextBox(index). Man kan i VB, men åbenbart ikke i VBA :o(
Tak for hjælpen

Nå ja - har leget med det engang - det er ikke i VBA

Du kan ikke i VBA lave et controlarray, men du kan lave et array med controller.

Private Sub UserForm_Initialize()
Dim Textb() As Control
Dim ctl As Control
cnt = 0
For Each ctl In UserForm1.Controls
  If TypeName(ctl) = "TextBox" Then
    cnt = cnt + 1
    ReDim Preserve Textb(1 To cnt)
    Set Textb(cnt) = ctl
  End If
Next ctl
Textb(2).Value = "test"
End Sub

Tilpasset din sætning.
Hvis du DIMmer Text() som public i et alm. modul vil du altid have array'et til rådighed.

Private Sub UserForm_Initialize()
Dim Text() As Control
Dim ctl As Control

cnt = 0
For Each ctl In Me.Controls
  If TypeName(ctl) = "TextBox" Then
    cnt = cnt + 1
    ReDim Preserve Text(1 To cnt)
    Set Text(cnt) = ctl
  End If
Next ctl

For i = 1 To cnt
  Text(i).Text = "Textfelt med index nr. " & i
Next

End Sub

bak>> i den rene VB kan du f.eks. indsætte 10 knapper til tallene på en lommeregner, hvis du nu vil lave en sådan, og danner VB automatisk en array med disse knapper hvis du svarer ja til et spørgsmål. Du laver den første knap og kopi/indsæt og så får du et spørgsmål - det gør man ikke i VBA.

Tak Flemming, Jeg vidste ikke det var så enkelt i VB. jeg har godt VB6, men har aldrig rigtig brugt det.
Min kommentar stammer fra et spørgsmål til J. Walkenback med det tilhørende svar.