1. Liebe Forumsgemeinde,

    aufgrund der Bestimmungen, die sich aus der DSGVO ergeben, müssten umfangreiche Anpassungen am Forum vorgenommen werden, die sich für uns nicht wirtschaftlich abbilden lassen. Daher haben wir uns entschlossen, das Forum in seiner aktuellen Form zu archivieren und online bereit zu stellen, jedoch keine Neuanmeldungen oder neuen Kommentare mehr zuzulassen. So ist sichergestellt, dass das gesammelte Wissen nicht verloren geht, und wir die Seite dennoch DSGVO-konform zur Verfügung stellen können.
    Dies wird in den nächsten Tagen umgesetzt.

    Ich danke allen, die sich in den letzten Jahren für Hilfesuchende und auch für das Forum selbst engagiert haben. Ich bin weiterhin für euch erreichbar unter tti(bei)pcwelt.de.
    Dismiss Notice

Datum in Word

Discussion in 'Office-Programme' started by leith05, Jan 5, 2004.

Thread Status:
Not open for further replies.
  1. leith05

    leith05 Byte

    Hallo Leute:aua:
    Wie kann ich in Word den Datum von Heute + 14 tagen einfügen.
    z.B. heute ist der 05.01.2004 und es soll den 05.01.2004 und der 19.01.2004 autom. eingefügt werden.

    bestens Dank
     
    leith05, Jan 5, 2004
    #1
  2. leith05

    leith05 Byte

    danke hat prima geklappt
     
    leith05, Jan 14, 2004
    #2
  3. Wolfgang77

    Wolfgang77 Ganzes Gigabyte

    Hallo,

    hier ein Makro für WinWord das die Berechnung durchführt:


    Public Sub MAIN()
    Dim datum$
    Dim Zahl
    Dim Anzahl
    Dim datum_
    WordBasic.BeginDialog 326, 114, "Makro"
    WordBasic.OKButton 35, 78, 110, 21
    WordBasic.OptionGroup "Option"
    WordBasic.OptionButton 18, 16, 224, 16, _
    "Anzahl der Tage einfügen"
    WordBasic.OptionButton 18, 38, 148, 16, "Datum einfügen"
    WordBasic.CancelButton 181, 78, 110, 21
    WordBasic.EndDialog

    Dim Dia As Object: Set Dia = WordBasic.CurValues.UserDialog

    If WordBasic.Dialog.UserDialog(Dia) Then
    If Dia.Option = 0 Then
    WordBasic.Input "Enddatum", datum$
    Zahl = WordBasic.DateValue(datum$)
    Anzahl = Zahl - WordBasic.Today()
    WordBasic.Insert Str(Anzahl)
    Else
    WordBasic.Input "Anzahl der Tage", Anzahl
    datum_ = WordBasic.Today() + Anzahl
    WordBasic.Insert WordBasic.[Date$](datum_)
    End If
    End If
    End Sub


    Grüße
    Wolfgang
     
    Wolfgang77, Jan 5, 2004
    #3
  4. mschuetzda

    mschuetzda Megabyte

    Hallo Leith05,

    soweit ich weiss, kann man mit WORD nicht direkt ein Datum ( heute +14) berechnen.

    Ich nehme an, dass es mit einem WORD-VBA-Makro geht, habe aber nur wenig Ahnung von VBA um dir hier helfen zu können.

    mfg
    mschue
     
    mschuetzda, Jan 5, 2004
    #4
  5. wu-wolle

    wu-wolle Halbes Gigabyte

    Thread aus dem "Kaufberatung [Software]"Board hierher verschoben.
    Kann weiter gehen... ;)
    Gruß
    wolle
     
    wu-wolle, Jan 5, 2004
    #5
  6. spooky_1982

    spooky_1982 Kbyte

    Tippe 19.01.2004 ! Ansonsten falsches Forum würd ich mal sagen.
     
    spooky_1982, Jan 5, 2004
    #6
Thread Status:
Not open for further replies.

Share This Page