Datum in Textbox

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm TextBox
Bild

Betrifft: Datum in Textbox
von: Kasi
Geschrieben am: 06.10.2015 10:23:45

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

    Bild

    Betrifft: AW: Datum in Textbox
    von: ede
    Geschrieben am: 06.10.2015 12:26:00
    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

    Bild

    Betrifft: AW: Datum in Textbox
    von: Kasi
    Geschrieben am: 06.10.2015 16:28:54
    Funktioniert wunderbar.
    Danke dir Ede.
    Gruß
    Kasi

     Bild

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