Moin! Ich weiß jetzt nicht genau, wie es ablaufen soll aber setzte mal bei Userform2.textbox1 den tag auf 0 ( also im VBE) und dann nutze folgenden Code.
Sub button1_click()
Datenende = Workbooks("Tool.xlsm").Worksheets("Liste").Cells(Rows.Count, "A").End(xlUp).Offset(1)
letzteZeile = Datenende.Row - 1
If UserForm2.TextBox1.Tag < letzteZeile Then
i = UserForm2.TextBox1.Tag + 1
UserForm2.TextBox1.Value = Workbooks("A3F_Tool.xlsm").Worksheets("Liste").Cells(i, "A").Value
UserForm2.TextBox2.Value = Workbooks("A3F_Tool.xlsm").Worksheets("Liste").Cells(i, "B").Value
UserForm2.TextBox3.Value = Workbooks("A3F_Tool.xlsm").Worksheets("Liste").Cells(i, "C").Value
UserForm2.TextBox4.Value = Workbooks("A3F_Tool.xlsm").Worksheets("Liste").Cells(i, "D").Value
UserForm2.TextBox5.Value = Workbooks("A3F_Tool.xlsm").Worksheets("Liste").Cells(i, "E").Value
UserForm2.TextBox6.Value = Workbooks("A3F_Tool.xlsm").Worksheets("Liste").Cells(i, "J").Value
UserForm2.TextBox7.Value = Workbooks("A3F_Tool.xlsm").Worksheets("Liste").Cells(i, "I").Value
UserForm2.TextBox1.Tag = UserForm2.TextBox1.Tag + 1
End If
End Sub
der prüft, ob der Tag der Textbox kleiner als das Ende ist. Wenn ja, liest er den nächsten Datensatz ein, ansonsten kommt nix. Weiß nicht, ob du das sol wolltest. VG
|