Datum +x Tage für Word

Mittwoch, 2. September 2009 ·

Schon mal ein Datum mehr oder weniger automatisch in Word berechnet?
Z.B. wenn man ein Begleitschreiben für LSt-Karten hat und über die Rückgabefrist informieren will.
Einfach ein Makro erstellen:

Sub Fristdatum()

wieviel = InputBox("wieviele Tage sollen addiert werden?")
If wieviel = "" Then Exit Sub
Selection.InsertAfter DateAdd("d", wieviel, Date)

End Sub


...und es an der gewünschten Stelle ausführen ;)

Kommentar veröffentlichen



Kommentare werden gern gesehen.
Wegen der hohen Spamrate werden diese aber vom System erst geprüft; eine Veröffentlichung kann evtl. bis zu 48 Std. dauern.

 

IcyBlue | Copyright © 2009 - Blogger Template Designed By Simrandeep Singh