Anzahl der Schleifen aus Kombinatsionsfeld übernehmen

Hallo zusamman,

hoffe ihr könnt mir helfen,...

ich habe 30 Textfelder und ein Kombinatsionsfeld (sucht zahlen aus einer Tabelle "1-30")
jetzt möchte ich die Anzahl der Schleifendurchgänge aus dem Kombifeld entnehmen und die Anzahl an Textfeldern automatisch mit Inhalt füllen.

bekomme leider immer Fehler wie zb. falscher bezeichner oder Dialogfeld erwartet

mfg Markus

Code:

Private Sub Kombinationsfeld15_Change()
Dim i, a, b As Integer
Dim pr, aufn As String
Dim Bta
Dim Bta1(1 To 30) As String

a = 0
b = 0


Bta = Array(Me!Aufnahme1, Me!Aufnahme2, Me!Aufnahme3, Me!Aufnahme4, Me!Aufnahme5, _
Me!Aufnahme6, Me!Aufnahme7, Me!Aufnahme8, Me!Aufnahme9, Me!Aufnahme10, _
Me!Aufnahme11, Me!Aufnahme12, Me!Aufnahme13, Me!Aufnahme14, Me!Aufnahme15, _
Me!Aufnahme16, Me!Aufnahme17, Me!Aufnahme18, Me!Aufnahme19, Me!Aufnahme20, _
Me!Aufnahme21, Me!Aufnahme22, Me!Aufnahme23, Me!Aufnahme24, Me!Aufnahme25, _
Me!Aufnahme26, Me!Aufnahme27, Me!Aufnahme28, Me!Aufnahme29, Me!Aufnahme30)

For i = 0 To [Kombinationsfeld15]

Bta(b + 1) = Bta(i)
aufn = Format("Aufnahme" & i)

pr = aufn.Value


b = b + 1
a = a + 1

pr = Me![Pr Nr] & Chr(Asc("A") + a)


Next i

End Sub

For i = 0 To Cint(Me.Kombinationsfeld15.Value)