ich habe da ein kleines Schleifen Problem und komm nicht raus!!!
ich habe in meinem Projekt verschiedene userformen dynamisch erzeugt.
in dem ersten UF wird die anzahl von Werken angegeben dann der Name vom Werk dann die Anzahl von Anlagen (es gibt 5 verschiedene Sorten von Anlagen und die sind fest aber man kann die Anzahl von einer Sorte beliebig wählen) und zum Schluss muss man einen Namen eingeben für jede Anlage.
in dem letzten UF habe ich die textbox so erzeugt:
Set ctl = Me.Controls.Add("forms.Multipage.1", True)
For j = 0 To AnzWerke - 1
With ctl
.Pages(j).Caption = NameWerke(j)
.Left = 10
.Top = 80
.Width = 350
.Height = 450
.Font.Size = 12
.Visible = True
k = 0
For i = 0 To 4
For n = 1 To AnzAnlage(i, j)
Set ctl3 = ctl.Pages(j).Controls.Add("Forms.textbox.1", True)
With ctl3
.Name = "NameAnlage" & n
.Left = 130
.Top = 40 + k
.Height = 20
.Width = 120
.Font.Size = 10
.Value = "0"
End With
Set ctl3 = Nothing
k = k + 25
Next n
Next i
um die Inhalte der Textbox zu bekommen habe ich so gemacht:
Private Sub Ok_Click()
Dim i, j, n, y As Integer
Dim zeile As Integer
Dim AnlageKurzNM
AnlageKurzNM = Array("Span_", "Hob_", "Keil_", "Press_", "Trock_")
For j = 0 To AnzWerke - 1
For i = 0 To 4
For n = 1 To AnzAnlage(i, j)
For Each ctl3 In ctl.Pages(j).Controls
If ctl3.Name = "NameAnlage" & n Then
NameAnlage(i, j, n) = ctl3.Text
'n = n + 1
MsgBox ("anlage i=" & i & " werk j=" & j & " machinen n=" & n & " = " & ctl3.Text)
End If
Next
Next n
Next i
Next j
die Ergebnisse sind folgende:
Anlage Werk Machinen Ergebnisse
i j n
0 1 1 Anlage ***
0 1 1 Anlage1
0 1 1 Anlage2
0 1 1 Anlage3
0 1 1 Anlage4
1 1 1 Anlage
1 1 1 Anlage1 ***
1 1 1 Anlage2
1 1 1 Anlage3
1 1 1 Anlage4
2 1 1 Anlage
2 1 1 Anlage1
2 1 1 Anlage2 ***
2 1 1 Anlage3
2 1 1 Anlage4
3 1 1 Anlage
3 1 1 Anlage1
3 1 1 Anlage2
3 1 1 Anlage3 ***
3 1 1 Anlage4
4 1 1 Anlage
4 1 1 Anlage1
4 1 1 Anlage2
4 1 1 Anlage3
4 1 1 Anlage4 ***
was ich brauche sind die Ergebnisse mit den 3 Stern
wäre schön wenn jemand eine Lösung hätte
Danke
Stan