Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

textbox Inhalte in Userform

Forumthread: textbox Inhalte in Userform

textbox Inhalte in Userform
07.05.2005 11:59:21
stan
Hallo Forum,
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
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: textbox Inhalte in Userform
08.05.2005 01:06:52
Werner
Hi,
nicht besonders verständlich, am besten neu formulieren.
mfg Werner
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige