undzwar habe ich ein kleines Problem und hoffe ihr könnt mir weiterhelfen.
Irgendwie bekomme ich immer einen Laufzeitfehler 381(Warum weiss ich nicht) habe auch verschiedene Varianten ausprobiert.
bei
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = ListBox1.Column(1, ListBox1.ListIndex)
TextBox2.Value = ListBox1.Column(2, ListBox1.ListIndex)
TextBox3.Value = ListBox1.Column(5, ListBox1.ListIndex)
TextBox4.Value = ListBox1.Column(7, ListBox1.ListIndex)
End Sub
oder
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = ListBox1.Column(1)
TextBox2 = ListBox1.Column(2)
TextBox3 = ListBox1.Column(5)
TextBox4 = ListBox1.Column(7)
End Sub
oder
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = ListBox1.List(ListBox1.ListIndex, 1)
TextBox2 = ListBox1.List(ListBox1.ListIndex, 2)
TextBox3 = ListBox1.List(ListBox1.ListIndex, 5)
TextBox4 = ListBox1.List(ListBox1.ListIndex, 7)
End Sub