Lasse einige Textfelder per Doppelklick aus Listbox füllen, bekomme jedoch ein Textfeld nicht richtig angezeigt, da es sich um ein Datum handelt.
Hier der Code:
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
UserForm1.TextBox1 = ListBox1.List(ListBox1.ListIndex, 0)
UserForm1.TextBox2 = ListBox1.List(ListBox1.ListIndex, 1)
UserForm1.TextBox3 = ListBox1.List(ListBox1.ListIndex, 2)
UserForm1.TextBox4 = ListBox1.List(ListBox1.ListIndex, 3)
End Sub
Private Sub TextBox1_AfterUpdate()
TextBox1 = Format(TextBox1, "TT.MM.JJJJ")
End Sub
Danke