Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Datum in Textbox in UF

Betrifft: Datum in Textbox in UF von: Stefan Glander
Geschrieben am: 31.10.2014 20:28:39

Hallo Forum,
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

  

Betrifft: AW: Datum in Textbox in UF von: Crazy Tom
Geschrieben am: 31.10.2014 20:32:52

Hallo

ungetestet

TextBox11.Value = cdate(.List(.ListIndex, 11))

MfG Tom


  

Betrifft: AW: Danke O.T. von: Stefan Glander
Geschrieben am: 31.10.2014 20:37:12

.


 

Beiträge aus den Excel-Beispielen zum Thema "Datum in Textbox in UF"