Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
Screenshot zu CommandButton	CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema Label
Screenshot zu Label	Label-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema ListBox
Screenshot zu ListBox	ListBox-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema TextBox
Screenshot zu TextBox	TextBox-Seite mit Beispielarbeitsmappe aufrufen

Datum in Textbox in UF

• Datum in Textbox in UF von Stefan Glander vom 31.10.2014 20:28:39
• AW: Datum in Textbox in UF - von Crazy Tom am 31.10.2014 20:32:52
  • AW: Danke O.T. - von Stefan Glander am 31.10.2014 20:37:12

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"