Office: Datum anhande eines vorhanden Datumauswahlfeldes berechnen und einfügen

Ich verwende ein selbst erstelltes Dokument als Vorlage (keine Wordvorlage) Ich habe in dieses Dokument zwei "Datums-Inhaltssteuerelemente" für die Definition eines Zeitraumes eingefügt. Diese werden händisch editiert. Weiter unten im Text soll nun ausgehend vom ersten Datum ein weiteres Datum automatisch eingefügt bzw. aktualisiert werden, welches zwei Wochen vor dem oben genannten ersten Datum liegt. Wie kann ich das erreichen?

 

Hallo optimistikus,

wenn stur zwei Wochen zurückgerechnet werden sollen, geht das relativ einfach:

Code:

Private Sub Document_ContentControlOnEnter(ByVal CC As ContentControl)
Dim quellDat As Variant, vordat As Variant

If CC.Tag <> "vorher" Then Exit Sub

quellDat = ActiveDocument.SelectContentControlsByTag("Anfang").Item(1).Range.Text
vordat = DateAdd("d", -14, quellDat)
ActiveDocument.SelectContentControlsByTag("vorher").Item(1).Range.Text = vordat

End Sub

Dabei ist "Anfang" der Tag des Datumsauswahl-Steuerelements für den Start und "vorher" der Tag des Steuerelements zur Aufnahme des zurückgerechneten Datums (was auch ein Text-Inhaltssteuerelement sein darf).
Ausgelöst wird das Makro durch Klick in dieses letztere Steuerelement (was man natürlich auch anders haben kann)

Falls Wochenenden nicht mitgerechnet werden sollen, wird das ganze ein wenig aufwändiger; falls auch Feiertage eine Rolle spielen sollen, ist in Word, glaub ich, das Ende der Fahnenstange erreicht. In Excel ginge es.
Kleines Musterdokument im Anhang. Es ist gezippt, weil Dokumente mit Makros nicht akzeptiert werden.