Textbox auf Userform mit Datum vorbelegen

Moderator: ModerationP

Textbox auf Userform mit Datum vorbelegen

Beitragvon 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
DennisMenger
Neuling
 
Beiträge: 1
Registriert: 04. Dez 2019, 15:20

Re: Textbox auf Userform mit Datum vorbelegen

Beitragvon 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
LG & ciao....

thowe
<think happy thoughts>
Hast du Milch für Kaffe? Ja, ich habe "Fettarme". Das sehe ich. Bekomme ich nun eine Milch?
Benutzeravatar
thowe
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 642
Registriert: 09. Jul 2007, 12:20
Wohnort: Graz

Re: Textbox auf Userform mit Datum vorbelegen

Beitragvon 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
Hubert$
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 72
Registriert: 04. Dez 2019, 21:32

Re: Textbox auf Userform mit Datum vorbelegen

Beitragvon thowe » 05. Dez 2019, 17:33

Hallo Hubert$


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



DOCH wird angepasst, getestet.....
LG & ciao....

thowe
<think happy thoughts>
Hast du Milch für Kaffe? Ja, ich habe "Fettarme". Das sehe ich. Bekomme ich nun eine Milch?
Benutzeravatar
thowe
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 642
Registriert: 09. Jul 2007, 12:20
Wohnort: Graz

Re: Textbox auf Userform mit Datum vorbelegen

Beitragvon Gast » 05. Dez 2019, 21:30

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


Zurück zu Word Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 3 Gäste