Listenfeld
Nikolas
Habe in meiner Userform eine Listbox und bei Klick auf einen Eintrag soll der entsprechende Datensatz im Formular geldane werden!
Kann ich, anstatt immer wieder Textbox 1 - ~ zu schreiben, es auch globaler und einfacher schreiben mit einer Schleife?
thx
Nikolas
Private Sub lstDS_Click()
i = lstDS.ListIndex + 2
Beep
' Seite 1
OptionButton1.Value = Cells(i, 2).Value
OptionButton2.Value = Cells(i, 3).Value
OptionButton3.Value = Cells(i, 4).Value
TextBox1.Text = Cells(i, 1).Value
TextBox2.Text = Cells(i, 2).Value
TextBox3.Text = Cells(i, 3).Value
TextBox4.Text = Cells(i, 4).Value
TextBox5.Text = Cells(i, 5).Value
TextBox6.Text = Cells(i, 6).Value
TextBox7.Text = Cells(i, 7).Value
TextBox8.Text = Cells(i, 8).Value
TextBox9.Text = Cells(i, 9).Value
'Seite 2
TextBox10.Text = Cells(i, 10).Value
TextBox11.Text = Cells(i, 11).Value
TextBox12.Text = Cells(i, 12).Value
TextBox13.Text = Cells(i, 13).Value
' In Zeile N4 den Listindex anzeigen
Range("AA4").Value = lstDS.ListIndex
End Sub
Anzeige