Textbox Datum plus Jahr

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox InputBox MsgBox


Excel-Version: 5.0/7.0
nach unten

Betrifft: Textbox Datum plus Jahr
von: Georg
Geschrieben am: 15.05.2002 - 10:04:46

Hallo,
ich gebe in die Textbox1 ein Datum ein und in der Textbox2 einen Jahreswert, z.B. 2. Dann soll in der Textbox3 das neue Datum erscheinen.
Beispiel
TB1 = 15.05.2002
TB2 = 2
TB3 = 14.05.2004

Bei einer Addition kommt nur 17.05.2002 raus. Was muss ich ändern?

Kann mir jemand weiterhelfen.
Vielen Dank und Gruß; Georg


nach oben   nach unten

Re: Textbox Datum plus Jahr
von: Christoph Dümmen
Geschrieben am: 15.05.2002 - 10:28:53

Hallo Georg,

woher soll Excel wissen, dass es zwei Jahre sind?
Jeder Tag zählt für Excel = 1.
Wenn Du eine Multiplikation (2*365) hinzufügst, sollte es gehen, wobei dann keine Schaltjahre berücksichtigt werden.

Christoph


nach oben   nach unten

Re: Textbox Datum plus Jahr
von: Matthias
Geschrieben am: 15.05.2002 - 10:34:25

Hallo!

Habe ich das richtig verstanden, dass Du nur eine gewisse Anzahl von Jahren addieren möchtest?

Dann habe ich evtl. hier eine Lösung!

Sub datum_neu()
Dim datum1, datum2, jahr

datum1 = InputBox("Geben Sie bitte ein Datum ein: ")
jahr = InputBox("Und nun eine Anzahl von Jahren, die addiert werden soll: ")
datum2 = Day(datum1) & "." & Month(datum1) & "." & Year(datum1) + jahr
MsgBox (datum2)
End Sub


Gruß

Matthias

nach oben   nach unten

Re: Textbox Datum plus Jahr
von: Georg
Geschrieben am: 15.05.2002 - 11:16:53

Hallo, Christoph

vielen Dank für Deinen Hinweis. Kannst Du mir sagen, wo ich bei meinem Code die Multiplication einbaue?

a = TextBox1
b = TextBox7
aa# = Val(a)
bb# = Val(b)
ergebnis = aa + bb
TextBox11 = ergebnis
TextBox11 = Format(CDate(TextBox11), "dd.mm.yy")

Gruß; Georg


nach oben   nach unten

Re: Textbox Datum plus Jahr
von: Matthias
Geschrieben am: 15.05.2002 - 11:20:00

Hallo, Matthias

Vielen Dank für Deine Anregung. Hast Du vielleicht noch eine Idee, dass die Eingaben direkt in die TB erfolgen und nicht über Infoboxen?
Die Daten werden aus den TB anschliessend in eine Datei geschrieben.
Gruß; Georg


nach oben   nach unten

Re: Textbox Datum plus Jahr
von: Matthias
Geschrieben am: 15.05.2002 - 13:09:48

Hallo Georg,

habe mir deinen Eintrag zu Christoph angeschaut und nehme das jetzt mal als Grundlage:

a = TextBox1 'hier wird das komplette Datum eingetragen
b = TextBox7 'hier die Anzahl Jahre, die addiert werden sollen
ergebnis = Day(a) & "." & Month(a) & "." & Year(a) + b
TextBox11 = ergebnis


Probier das mal aus!

Gruß

Matthias V.

nach oben   nach unten

Re: Textbox Datum plus Jahr
von: Georg
Geschrieben am: 15.05.2002 - 16:16:13

Hallo, Mathias

genau das wars. Super
Einen schönen Tag und Gruß; Georg


 nach oben

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