Aktuelles Datum + X Tage im Word 2016 automatisieren?

Hallo,
sofern du als Datenquelle eine Exceldatei verwendest, solltest du Datumsberechnungen direkt dort (in einer Hilfsspalte für den Seriendruck) vornehmen.
Ansonsten hilft dir eventuell folgende Diskussion schon weiter:
Aktuelles Datum + X Tage im Word 2016 automatisieren? - Microsoft Community
Nachtrag:
Dein anderer Beitrag lässt darauf schließen, dass du als Datenquelle eine Access-Tabelle oder Access-Abfrage verwendest. Dann könntest du die Berechnung in einer Abfrage vornehmen.
Viele Grüße
Lisa

WAS ZUM TEUFEL ERLAUBEN SICH DIE S.G. MODERATOREN?!

Ich habe die ANTWORT auf meine Frage bekommen und diese als Antwort markiert.

Da kommt eine gewisse Aileen_G, und entfernt diese Markierung!

Spitze
Lisa Wilke-Thissen! Danke schön & Schönen Tag noch!

Hallo,

der Kommentar 'Date mask below includes non-breaking spaces (Chr(160)) besagt, dass geschützte Leerzeichen per ASCII-Code 160 eingefügt werden. Du aber willst eine kürzere Variante des Datumsformats, getrennt durch Punkte (Chr(46)), also dd.MM.yyyy.

Ändere die Zeilen im Makro wie folgt:

'Date mask below includes full stops (Chr(46))

Mask = "dd" & Chr(46) & "MM" & Chr(46) & "yyyy" ' Set Date format

Default = "14" ' Set default.

Title = "Plus or minus date starting with " & Format(Date, Mask)

Date1 = Format(Date, Mask)

Viele Grüße

Lisa

Hi Lisa Wilke-Thissen

danke schön! Mit dem Makro funktioniert ganz gut.

Allerdings: ich bin ein absoluter DAU was Makros betrifft.

Vllt. kannst du mir auf der Sprünge helfen und sagen- was ich in diesem Makro verändern muss, dass das Ergebnis in Form DD.MM.YYYY erscheint?

Momentan ist es DD MONAT JAHR.

[table][tr][td]Sub InsertFutureDate()' Written by Graham Mayor and posted on the word.docmanagement newsgroup in' March 2000' Inserts a future date in a document - note that this is not a field' Some style revisions and error handler by Charles KenyonDim Message As StringDim Mask As StringDim Title As StringDim Default As String Dim Date1 As StringDim MyValue As VariantDim MyText As StringDim Var1 As StringDim Var2 As StringDim Var3 As StringDim Var4 As StringDim Var5 As StringDim Var6 As StringDim Var7 As StringDim Var8 As String'Date mask belowincludes non-breaking spaces (Chr(160))Mask = "d" & Chr(160) & "MMMM" & Chr(160) & "yyyy" ' Set Date formatDefault = "14" ' Set default.Title = "Plus or minus date starting with " & Format(Date, Mask)Date1 = Format(Date, Mask)Var1 = "Enter number of days by which to vary above date. " _& "The number entered will be added to "Var2 = Format(Date + Default, Mask) ' Today plus default (14)Var3 = Format(Date - Default, Mask) ' Today minus default (14)Var4 = ". The default ("Var5 = ") will produce the date "Var6 = ". Minus (-"Var7 = ". Entering '0' (zero) will insert "Var8 = " (today). Click cancel to quit."MyText = Var1 & Date1 & Var4 & Default & Var5 & Var2 & Var6 _& Default & Var5 & Var3 & Var7 & Date1 & Var8' Display InputBox and get number of daysGetInput:MyValue = InputBox(MyText, Title, Default)If MyValue = "" ThenEnd 'quit subroutineEnd IfOn Error GoTo Oops 'just in caseSelection.InsertBefore Format((Date + MyValue), Mask)Selection.Collapse (wdCollapseEnd)End 'End subroutineOops: ' error handler in case user types something other than a numberMsgBox Prompt:="Sorry, only a number will work, please try again.", _Buttons:=vbExclamation, _Title:="A number is needed here."GoTo GetInputEnd Sub[/td][/tr][/table]