Hallo zusammen,
ich habe ein Userform mit einer Listbox, in der Listbox werden die Zeilen der Tabelle "Jan" angezeigt, durch einen Doppelclick werden die Daten wieder in Das Userform eingelesen
Code:
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = ListBox1.List(Me.ListBox1.ListIndex, 1)
TextBox3.Value = ListBox1.List(Me.ListBox1.ListIndex, 2)
ComboBox2.Value = ListBox1.List(Me.ListBox1.ListIndex, 3)
TextBox4.Value = ListBox1.List(Me.ListBox1.ListIndex, 4)
TextBox5.Value = ListBox1.List(Me.ListBox1.ListIndex, 5)
TextBox2.Value = ListBox1.List(Me.ListBox1.ListIndex, 0)
ComboBox3.Value = ListBox1.List(Me.ListBox1.ListIndex, 6)
TextBox6.Value = ListBox1.List(Me.ListBox1.ListIndex, 7)
TextBox7.Value = ListBox1.List(Me.ListBox1.ListIndex, 8)
TextBox8.Value = ListBox1.List(Me.ListBox1.ListIndex, 9)
TextBox9.Value = ListBox1.List(Me.ListBox1.ListIndex, 10)
TextBox10.Value = ListBox1.List(Me.ListBox1.ListIndex, 12)
TextBox11.Value = ListBox1.List(Me.ListBox1.ListIndex, 11)
ComboBox4.Value = ListBox1.List(Me.ListBox1.ListIndex, 13)
Jetzt möchte ich die Daten ändern.....
und dann wieder in die gleiche Zeile abspeichen.