117553
Goto Top

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

Content-Key: 299885

Url: https://administrator.de/contentid/299885

Ausgedruckt am: 29.03.2024 um 00:03 Uhr

Mitglied: 114757
Lösung 114757 23.03.2016 um 09:11:02 Uhr
Goto Top
Das sollte helfen
For i = 0 To Cint(Me.Kombinationsfeld15.Value)
Gruß jodel32
Mitglied: 117553
117553 23.03.2016 aktualisiert um 15:09:25 Uhr
Goto Top
Super Danke dir!!!