Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Datum mittels VBA um 6 Monate erhöhen.

Datum mittels VBA um 6 Monate erhöhen.
04.03.2014 10:07:08
Sebastian
Hallo Profies,
ich habe mal eine Frage. ich möchte gerne das Datum welches mir in einer Textbox1 vorliegt (04.03.14) um genau 6 monate erhöhen. Wie kann ich das in VBA erledigen?
Hat jemand einen Rath für mich? Vielen Dank Schonmal!
Sub test()
MeinDatum = Textbox1 + 6 'wird ja nur um 6 Tage erhöht
MsgBox MeinDatum
End Sub

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum mittels VBA um 6 Monate erhöhen.
04.03.2014 10:15:11
Oberschlumpf
Hi Sebastian
versuch mal (ungetestet):
Sub test()
MeinDatum = Textbox1 + Month(6)
MsgBox MeinDatum
End Sub

Hilfts?
Ciao
Thorsten

AW: Datum mittels VBA um 6 Monate erhöhen.
04.03.2014 10:15:32
Klaus
Hi,
Sub test()
MeinDatum = VBA.DateSerial(Year(CDate(Textbox1)), VBA.Month(CDate(Textbox1)) + 6, VBA.Day(CDate( _
Textbox1)))
MsgBox MeinDatum
End Sub
Grüße,
Klaus M.vdT.

Anzeige
AW: Datum mittels VBA um 6 Monate erhöhen.
04.03.2014 10:23:34
Sebastian
Klaus M.vdT. seine Lösung hat funktioniert :-)
Vielen Dank

Vorschlag: Bau noch ne Fehlerbehandlung rein!
04.03.2014 10:33:13
Matthias
Hallo
Nur als Hinweis, Sebastian.
Gib mal Text in die Textbox ein.
Dann gibts einen VBA-Crash
Es sollte also auch auf IsDate(Textbox) geprüft werden.
Ist die Rückgabe Wahr mach weiter wie Klaus vorgeschlagen hat
Ist die Rückgabe Falsch dann brich ab, oder gib ne Fehlermeldung raus.
Gruß Matthias

Anzeige
AW: Vorschlag: Bau noch ne Fehlerbehandlung rein!
04.03.2014 10:34:56
Sebastian
Jepp Alles klaro :-)
Vielen Dank

Danke für die RÜ! mit Text
04.03.2014 10:57:14
Klaus
Hallo Sebastian,
die "VBA." Referenzen kannst du auch komplett weglassen:
Sub test()
MeinDatum = DateSerial(Year(CDate(Textbox1)), Month(CDate(Textbox1)) + 6, Day(CDate(Textbox1)) _
)
MsgBox MeinDatum
End Sub
Natürlich trotzdem die Fehlerabfrage, wie von Matthias vorgeschlagen, einbauen!
Grüße,
Klaus M.vdT.
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige