Textbox auf Userform mit Datum vorbelegen

Antwort erstellen

Smilies
:D :) :( :o :shock: :? 8-) :lol: :x :P :razz: :oops: :cry: :evil: :twisted: :roll: :wink: :!: :?: :idea: :arrow: :| :mrgreen: :badgrin: :doubt:
BBCode ist eingeschaltet
[img] ist eingeschaltet
[flash] ist ausgeschaltet
[url] ist eingeschaltet
Smilies sind eingeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Textbox auf Userform mit Datum vorbelegen

Re: Textbox auf Userform mit Datum vorbelegen

Beitrag von Gast » 05. Dez 2019, 21:30

Vielen Dank für eure Antworten. Werde ich morgen testen.

Re: Textbox auf Userform mit Datum vorbelegen

Beitrag von thowe » 05. Dez 2019, 17:33

Hallo Hubert$


das wird nicht gehen, da der Monat/das Jahr nicht angepasst wird.



DOCH wird angepasst, getestet.....

Re: Textbox auf Userform mit Datum vorbelegen

Beitrag von Hubert$ » 05. Dez 2019, 16:58

Hallo,
das wird nicht gehen, da der Monat/das Jahr nicht angepasst wird.
Verwende DateAdd("d", 30, datTB1)
Hubertus

Re: Textbox auf Userform mit Datum vorbelegen

Beitrag von thowe » 05. Dez 2019, 11:29

Code: Alles auswählen
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Me.TextBox1 = CDate(Me.TextBox1)
End Sub


Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim datTB1 As Date
    Dim datTB2 As Date
   
    datTB1 = Me.TextBox1
    datTB2 = DateSerial(Year(datTB1), Month(datTB1), Day(datTB1) + 30)
    Me.TextBox2 = datTB2
   
End Sub

Textbox auf Userform mit Datum vorbelegen

Beitrag von DennisMenger » 04. Dez 2019, 15:24

Hallo zusammen.

Ich möchte eine TextBox2 auf einer Userform mit einem Datum vorbelegen, sobald eine andere TextBox1 auf der Userform mit einem Datum ausgefüllt wurde. Das Datum soll allerdings um 30 Tage weiter sein, als das in TextBox1 eingetragen wurde.

Wie kann ich das lösen?

Danke.

Gruß
Dennis

Nach oben