Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1352to1356
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
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

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.

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.

316 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige