Schleife für Textzeile in Userform

Nachdem fast alles hinhaut, gibt es ein Problem mit der Schleife.
Bei mir füllt ich meine UserForm2TextBox1 mit dem Inhalt der UserForm1ComboBox1, nun zu meinem Problem:
Da ich aber mit der UserForm1ComboBox1 auch noch 10 weiter TextBoxen in UserForm2 füllen will,
gelingt es mir nicht mit einer Schleife diese zu füllen.
Im unterem Beispiel seht Ihr dass für die TextBox1 in Userform2.


Private Sub CommandButton1_Click()
UserForm2.TextBox1.Value = UserForm1.ComboBox1.Value
Unload Me
End Sub


Private Sub UserForm_Initialize()
endrow = ThisWorkbook.Sheets("Tabelle1").Cells(Rows.Count, 8).End(xlUp).Row
For i = 2 To endrow
UserForm1.ComboBox1.AddItem (Cells(i, 8))
Next i
UserForm1.ComboBox1.ListIndex = 0
End Sub

Ich habe 10 Textzeilen in der Userform2, die alle separat per Button(die stehen hinter der Textzeile) gefüllt werden sollen. Zum Füllen dieser Textzeilen, soll immer die UserForm1 geöffnet werden und mit der Auswahl der Combobox die jeweilige Textzeile gefüllt werden.
Könnt Ihr mir helfen.
Vielleicht blickt jemand durch.
LG Matthias

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public iFillCnt As Integer Const iMaxBoxes = 10 Private Sub ComboBox1_Change() If iFillCnt = iMaxBoxes Then MsgBox "Textboxen in UF2 sind voll!" Else iFillCnt = iFillCnt + 1 UserForm2.Controls("TextBox" & iFillCnt).Value = ComboBox1.Value End If End Sub

Bei mir funktioniert die Beispielmappe. aber nur wenn ich sie abgespeichert habe. Beim versuch sie nur zu öffnen kommt laufzeit fehler oder so.
Nochmal gedankliche Ablauf:
1. Button "Schäden" drück und Userform2 wird geöffnet.
2. Neben Userform2.Textbox1 ist ein CommandButton1, der durch drücken Userform1 öffnet.
3. Nach Auswahl des gewünschten Schadens, mit CommandButton "eintragen" in die Userform2.Textbox1
übernehmen.
4. Userform schließt sich mit drücken des Buttons "eintragen"
5. Wieder in Userform2 den CommandButton2 nach der Textzeile 2 drücken, der mir die Userform1 wieder öffnet.
6. Wie 3. , jedoch den gewünschten Schaden in Userform2.Textbox2 übernehmen
7. .....
....
.....etc. für jede Textzeile das selbe Spiel.
das wars. Jetzt besser?
Gruß Matthias

Beliebteste Forumthreads (12 Monate)

Schleife für Textzeile in Userform

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Schleife für Textzeile in Userform

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread