Wer hat für folgendes Problem eine elegante Prozedur-Lösung:
Das Tagesdatum soll z.B. um vier Monate verlängert werden und in einer msgbox das Datum des letzten Tages dieses ünftigen Monats angezeigt werden. Also heute, 28.03.00, sollte „31.07.00“ angezeigt werden.
Kann jemand von Euch helfen?
Gruß und Dank
Wilhelm
Hi
Sub Datum()
Dim sIn As String, sOut As String
sIn = InputBox(„Datum :“)
sOut = DateAdd(„m“, 5, „01.“ & Month(sIn) & „.“ & Year(sIn)) - 1
MsgBox (sOut)
End Sub
Ich hoffe, ich habe Dich richtig verstanden.
Nochmal Hi
da sind wohl die Einrückungen verschwunden.
Naja, Du wirst es lesen können
Hallo André,
Ausprobiert…, hat funktioniert. Ein ganzer Sack voll Dank von der Nordsee nach Chemnitz!
Du bist für mich im Fragen-Forum ein offenbar sehr kundiger und hilfsbereiter Experte. Darf ich Dir deswegen das folgende weiter Problem(chen) zur Lösung vorlegen:
Das in der Zukunft ermittelte Tagesdatum soll nicht als Inhalt einer msgbox sondern Inhalt einer txtbox beim Speichern des Dokuments bzw. der Vorlage mit abgespeichert werden und beim nächsten Öffnen in der Txtbox wieder zur Verfügung stehen.
An sich müßte es doch mit einer statischen Variable oder über eine Document-Variable funktionieren. Tut es aber bei mir nicht.
Kannst Du helfen?
Gruß
Wilhelm
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]