Schnellbrief mit Datumsberechnung

[Berg]

Hallo,
ich habe einen Schnellbrief verfasst und möchte nun mit dem Platzhalter für den Geburtstag des Patienten Berechnungen anstellen, sowie es auch mit dem Platzhalter für das aktuelle Datum (Bsp:$4001[5]$) von TM vorgesehen ist.
Hat jemand eine Idee (VBA, Excel?) wie man so etwas realisieren könnte oder ist dies grundsätzlich nicht möglich?
Danke im Vorraus....

[JR]

Habe gegoogelt, weil mich das auch interessiert, und folgendes bei mir gut funktionierende Makro gefunden:

Sub Fristdatum()

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

End Sub

Quelle: http://www.office-loesung.de/ftopic47340_0_0_asc.php

Das könnte man entsprechend modifizieren. MfG - JR

[mh]

Problem der Datumsberechnung ist, das sie automatisch vonstatten gehen soll. Hier muss man TM etwas nachhelfen. Es ginge zB so:
1. Am Textbeginn des TM-Platzhalters für zB das Geburtsdatum des Patienten ($1077$) in der Vorlage eine Textmarke einfügen (hier: GebDat).
2. An der Stelle, wo das berechnete Datum stehen soll, eine 2. Textmarke einfügen, hier: Gebdat2.
3. Das nachfolgende VB-Makro (im Menü der Vorlage auf einen Befehl oder Button der Menüleiste gelegt) aufrufen:
*************************************************
Sub DatumBerechnen()

Dim GebDat As String, GebDat2 As Date

Selection.GoTo What:=wdGoToBookmark, Name:="GebDat"
Selection.EndKey Unit:=wdLine, Extend:=wdExtend

GebDat = Selection.Range
GebDat2 = DateAdd("m", 1, CDate(GebDat))
Selection.GoTo What:=wdGoToBookmark, Name:="GebDat1M"
Selection.InsertAfter CStr(GebDat2)
End Sub
**************************************************
Hierbei wird das von TM bereitgestellte GebDatum ausgelesen, mit der Funktion DateAdd um 1 Monat erhöht und an der Stelle der 2. Textmarke ins Dokument eingefügt. Andere Verfahrensvarianten sind natürlich beliebig zu erstellen. Aber ganz ohne Tricks gehts leider nicht.

[JR]

Gatuliere + Danke für die Anregungen, das Makro funktioniert!

MfG - JR

[Berg]

Hallo mh,

vielen Dank für den gut funktionierenden Lösungsansatz. Ich konnte diesen wunderbar an meine Erfordernisse anpassen.

mfg
Berg