HERBERS Excel-Forum - das Archiv
Datum in Textbox
Kasi

Hallo
Habe in eine Userform eine Textbox eingefügt.
Diese soll als Voreinstellung das aktuelle Datum haben und dann in Zelle P2 das Datum schreiben.
  • 
Private Sub TextBox1_Change()
With UserForm1
TextBox1.Value = Format(Date)
End With
Worksheets("Test").Range("P2").Value = Me.TextBox1
End Sub


    • funktioniert soweit...
    Wie bekomme ich es hin, das aktuelle Datum in der Textbox wieder zu überschreiben?
    Desweiteren zeigt er mir das Datum erst an, wenn ich eine Taste drücke.
    Gruß
    Kasi

    AW: Datum in Textbox
    ede

    Hallo Kasi,
    du kannst das aktuelle Datum beim Initialisieren der Userform vorbelegen. 
    Private Sub UserForm_Initialize()
TextBox1 = Format(Date)
End Sub

    du kannst in der Textbox1 jederzeit den Inhalt ändern oder per Code 
    TextBox1.Value ="geänderter Inhalt"

    gruss

    AW: Datum in Textbox
    Kasi

    Funktioniert wunderbar.
    Danke dir Ede.
    Gruß
    Kasi

    Datum in Textbox
    Kasi

    Hallo
    Habe in eine Userform eine Textbox eingefügt.
    Diese soll als Voreinstellung das aktuelle Datum haben und dann in Zelle P2 das Datum schreiben.
  • 
Private Sub TextBox1_Change()
With UserForm1
TextBox1.Value = Format(Date)
End With
Worksheets("Test").Range("P2").Value = Me.TextBox1
End Sub


    • funktioniert soweit...
    Wie bekomme ich es hin, das aktuelle Datum in der Textbox wieder zu überschreiben?
    Desweiteren zeigt er mir das Datum erst an, wenn ich eine Taste drücke.
    Gruß
    Kasi

    AW: Datum in Textbox
    ede

    Hallo Kasi,
    du kannst das aktuelle Datum beim Initialisieren der Userform vorbelegen. 
    Private Sub UserForm_Initialize()
TextBox1 = Format(Date)
End Sub

    du kannst in der Textbox1 jederzeit den Inhalt ändern oder per Code 
    TextBox1.Value ="geänderter Inhalt"

    gruss

    AW: Datum in Textbox
    Kasi

    Funktioniert wunderbar.
    Danke dir Ede.
    Gruß
    Kasi

    Dialog-Beispiele
    Bewerten Sie hier bitte das Excel-Portal