Datum in Textbox in UF

Private Sub CommandButton1_Click()
UserForm1.Show
Unload UserForm2
End Sub

Private Sub CommandButton3_Click()
AutoOpen
End Sub

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 12
ListBox1.RowSource = "Tabelle1!B20:m69"
ListBox1.ColumnWidths = "20;0;0;0;0;0;0;0;0;0;0;0"
End Sub

Private Sub ListBox1_Click()

With ListBox1

TextBox1.Text = .List(.ListIndex, 1)

TextBox2.Text = .List(.ListIndex, 2)

TextBox3.Text = .List(.ListIndex, 3)

TextBox4.Text = .List(.ListIndex, 4)

TextBox5.Text = .List(.ListIndex, 5)

TextBox6.Text = .List(.ListIndex, 6)

TextBox7.Text = .List(.ListIndex, 7)

TextBox8.Text = .List(.ListIndex, 8)

TextBox9.Text = .List(.ListIndex, 9)

TextBox10.Text = .List(.ListIndex, 10)

TextBox11.Text = .List(.ListIndex, 11)

End With

End Sub

Private Sub UserForm_Activate()

Me.Top = -15

Me.Left = 1

Me.Height = 600

Me.Width = 1020

End Sub