ich habe eine UF in der ich in Texbox11 ein Datum einlesen lassen möchte.
Leider schreibt die UF das Datum dort unformatiert rein.
Mein UF sieht wie folgt aus:
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
Wo muss ich bitte was einfügen ?
Stefan