Datum mit Datum vom Erstellungstag verknüpfen

[ich2110]

Hallo und guten Tag,

ich wußte nicht wie ich das im Titel richtig formulieren sollte.

Darum versuche ich einmal mein Problem genau zu beschreiben.

Ich arbeite mit Word 2010 und entsprechend mit einer Exceldatei für die Erstellung von Serienbiefen.

Jeder Brief hat das aktuelle Tagesdatum und ich möchte im Text ein Datum einsetzen, das automatisch zum Tagesdatum 14 Tage hinzu adiert.

Beispiel: Tagesdatum = 06.05.13 • im Text soll dann stehen = 20.05.13

Freue mich, wenn mir jemand helfen kann.

 

[simpsonsfan]

Dann mach doch in der Exceldatei eine neue Spalte, in der du die 14 Tage addierst.
Edit: Mit +TAG(14) meine ich. Oder woher nimmst du das Datum? Direkt in Word das heutige (aktuelle) Datum oder woher?

 

[AdoK]

Ich vermute mal, dass du innerhalb des Textes in Word das heutige Datum +14 Tage haben möchtest. Das sollte die Lösung für dein Vorhaben sein http://www.office-loesung.de/ftopic297682_0_0_asc.php

 

[ich2110]

Hallo AMDUser,

ja, so hatte ich mir das gedacht, jedoch dachte ich, dass ich in meinem Text das aktuelle Datum einfüge und die 14 Tage dann automatisch dieses Datum ändern.

So wie ich das in dem Lösungsvorschlag sehe, muss ich dazu jedoch ein Maktro schreiben.

Das werde ich jetzt einmal versuchen und hoffe, dass ich das hinkriege.

Vielen Dank für Deine Hilfe!

Ergänzung (7. Mai 2013)

Ich habe die Situation wie folgt gelöst. Ich setze den Courser an die Stelle wo das Datum erscheinen soll.
Habe in der Symbolleiste für den Schnellzugriff das Makro liegen und einmal klick und es ist da.

So wie ich es jetzt gemacht habe, dürfte es auch kein Datum einfügen, das dann das Wochenende erscheint.
Muss ich aber noch probieren.

Vielleicht hilft dieses Makro ja auch anderen.

Das ist mein komplettes Makro:

Sub Frist14Tage()
'
' Frist14Tage Makro
'
Dim Frist As Date

Select Case Weekday(Now)
Case Is = vbFriday
Frist = DateAdd("d", 17, Now)
Case Is = vbSaturday
Frist = DateAdd("d", 16, Now)
Case Is = vbSunday
Frist = DateAdd("d", 15, Now)
Case Else
Frist = DateAdd("d", 14, Now)
End Select

With Selection
.InsertAfter Format(Frist, "dd.mm.yyyy")
.Collapse wdCollapseEnd
End With '

Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
End Sub