Office: (Office 2010) Kalenderwoche einfügen?

Helfe beim Thema Kalenderwoche einfügen? in Microsoft Word Hilfe um das Problem gemeinsam zu lösen; Hallo Zusammen wie füge ich im Word die Kalenderwoche ein, sodass sich diese automatische aktualisiert? Ich habe bereits mehrere Einträge gelesen,... Dieses Thema im Forum "Microsoft Word Hilfe" wurde erstellt von BrianHemmi, 30. März 2016.

  1. BRIANHEMMI
    BrianHemmi

    Kalenderwoche einfügen?


    Hallo Zusammen

    wie füge ich im Word die Kalenderwoche ein, sodass sich diese automatische aktualisiert?

    Ich habe bereits mehrere Einträge gelesen, dass man dies via VBA vollziehen kann. Jedoch bin ich etwas ungeschickt und habe keine Erfahrung im programmieren.

    Gibt es einen einfachen Leitfaden um dies zu bewerkstelligen?

    Vielen Dank für Tipps und Tricks ;-)

    :)
     
    BrianHemmi, 30. März 2016
    #1
  2. Gerhard H
    Gerhard H Erfahrener User
    Hallo Brian,

    das geht zum Beispiel mit folgendem Makro:
    Code:
    Eine ausführliche Anleitung zum Einbau findest du im angehängten Musterdokument.
     
    Gerhard H, 1. April 2016
    #2
  3. AHEDDE
    ahedde
    Hallo Gerhard H,

    bei meiner schier fast unendlichen Suche auf der ich mich mittlerweile befinde, bin ich auf deinen Beitrag gestoßen. Ich habe folgendes Problem.
    Und zwar habe ich im Dokument insgesamt sechs ganz normale Formularfelder. Wenn ich in einem dieser Formularfelder ein Datum im Format "TT.MM.JJJJ" eingebe, soll im Formularfeld daneben die zum Datum gehörige Kalenderwoche auftauchen. Das muss doch irgendwie möglich sein? Meine Suche bisher ergab immer nur diese Function von Christoph Kremer, die in sämtlichen Foren umhergeistert, die ich aber nicht verstehe korrekt im Dokument einzubauen. Ich arbeite mit Word 2013.

    Danke schon mal
     
    ahedde, 1. Dezember 2016
    #3
  4. Gerhard H
    Gerhard H Erfahrener User

    Kalenderwoche einfügen?

    Hallo ahede,

    es gibt keine "normalen" Formularfelder. Ich denke, du meinst welche aus den "Formularen aus Vorversionen". Wenn nicht, bitte Bescheid geben.

    Ob du die Berechnung nach Ch. Kremer bevorzugst, oder die aus Beitrag 2 sollte egal sein. Ich erkenne jedenfalls keine Unterschiede im Ergebnis. Im folgenden Makro - umgestrickt auf Formularfelder aus Vorversionen - sind beide Berechnungen enthalten:
    Code:
    Musterdokument im Anhang
     
    Gerhard H, 1. Dezember 2016
    #4
  5. AHEDDE
    ahedde
    Hallo Gerhard,

    es funktioniert super. Ja diese Formularfelder meinte ich auch :-)
    Ich danke dir vielmals. Das bringt mich echt weiter.

    Gruß Alex
     
    ahedde, 1. Dezember 2016
    #5
  6. AHEDDE
    ahedde
    Hallo Gerhard,

    ich habe mich wohl zu früh gefreut. Ich brauche deinen Code ganze 12 mal in einem Dokument. Die ersten drei "Feldkombinationen" (Tagesdatum und Kalenderwoche) funktionieren noch. Danach bekomme ich den Fehler "Typen unverträglich" Woran kann das liegen?
    Deinen von mir angepassten Code poste ich hier mal.

    Gruß Alex

    Sub Wunschtermin1()
    Dim kw As Variant
    Dim aktdatum As Variant

    aktdatum = CDate(ActiveDocument.FormFields("WuDatMo1").Result)

    'Berechnung Kalenderwoche als Format von Datum
    kw = Format(aktdatum, "ww", vbUseSystemDayOfWeek, vbUseSystem)

    'alternativ Berechnung Kalenderwoche nach Ch.Kremer
    Dim t As Variant, kwoche As Variant
    t = DateSerial(Year(aktdatum + (8 - Weekday(aktdatum)) Mod 7 - 3), 1, 1)
    kwoche = (aktdatum - t - 3 + (Weekday(t) + 1) Mod 7) 7 + 1

    'Ausgabe
    'MsgBox "Kalenderwoche nach Ch. Kremer : " & kwoche & vbLf & _
    '"Kalenderwoche als Format des Ausgangsdatums: " & kw

    ActiveDocument.FormFields("WuDatMoKW1").Result = kw 'kwoche statt kw, wenn Berechnung nach Kremer erfolgt

    End Sub

    Sub Wunschtermin2()

    aktdatum = CDate(ActiveDocument.FormFields("WuDatMo2").Result)

    'Berechnung Kalenderwoche als Format von Datum
    kw = Format(aktdatum, "ww", vbUseSystemDayOfWeek, vbUseSystem)

    'alternativ Berechnung Kalenderwoche nach Ch.Kremer
    Dim t As Variant, kwoche As Variant
    t = DateSerial(Year(aktdatum + (8 - Weekday(aktdatum)) Mod 7 - 3), 1, 1)
    kwoche = (aktdatum - t - 3 + (Weekday(t) + 1) Mod 7) 7 + 1

    'Ausgabe
    'MsgBox "Kalenderwoche nach Ch. Kremer : " & kwoche & vbLf & _
    '"Kalenderwoche als Format des Ausgangsdatums: " & kw

    ActiveDocument.FormFields("WuDatMoKW2").Result = kw

    End Sub

    Sub Wunschtermin3()

    aktdatum = CDate(ActiveDocument.FormFields("WuDatMo3").Result)

    'Berechnung Kalenderwoche als Format von Datum
    kw = Format(aktdatum, "ww", vbUseSystemDayOfWeek, vbUseSystem)

    'alternativ Berechnung Kalenderwoche nach Ch.Kremer
    Dim t As Variant, kwoche As Variant
    t = DateSerial(Year(aktdatum + (8 - Weekday(aktdatum)) Mod 7 - 3), 1, 1)
    kwoche = (aktdatum - t - 3 + (Weekday(t) + 1) Mod 7) 7 + 1

    'Ausgabe
    'MsgBox "Kalenderwoche nach Ch. Kremer : " & kwoche & vbLf & _
    '"Kalenderwoche als Format des Ausgangsdatums: " & kw

    ActiveDocument.FormFields("WuDatMoKW3").Result = kw

    End Sub
    Sub Wunschtermin4()

    aktdatum1 = CDate(ActiveDocument.FormFields("Dienstag1").Result)

    'Berechnung Kalenderwoche als Format von Datum
    kw = Format(aktdatum1, "ww", vbUseSystemDayOfWeek, vbUseSystem)

    'alternativ Berechnung Kalenderwoche nach Ch.Kremer
    Dim t As Variant, kwoche As Variant
    t = DateSerial(Year(aktdatum1 + (8 - Weekday(aktdatum1)) Mod 7 - 3), 1, 1)
    kwoche = (aktdatum1 - t - 3 + (Weekday(t) + 1) Mod 7) 7 + 1

    'Ausgabe
    'MsgBox "Kalenderwoche nach Ch. Kremer : " & kwoche & vbLf & _
    '"Kalenderwoche als Format des Ausgangsdatums: " & kw

    ActiveDocument.FormFields("DienstagKW1").Result = kw

    End Sub

    Sub Wunschtermin5()

    aktdatum = CDate(ActiveDocument.FormFields("WuDatDi2").Result)

    'Berechnung Kalenderwoche als Format von Datum
    kw = Format(aktdatum, "ww", vbUseSystemDayOfWeek, vbUseSystem)

    'alternativ Berechnung Kalenderwoche nach Ch.Kremer
    Dim t As Variant, kwoche As Variant
    t = DateSerial(Year(aktdatum + (8 - Weekday(aktdatum)) Mod 7 - 3), 1, 1)
    kwoche = (aktdatum - t - 3 + (Weekday(t) + 1) Mod 7) 7 + 1

    'Ausgabe
    'MsgBox "Kalenderwoche nach Ch. Kremer : " & kwoche & vbLf & _
    '"Kalenderwoche als Format des Ausgangsdatums: " & kw

    ActiveDocument.FormFields("WuDatDiKW2").Result = kw

    End Sub

    Sub Wunschtermin6()

    aktdatum = CDate(ActiveDocument.FormFields("WuDatDi3").Result)

    'Berechnung Kalenderwoche als Format von Datum
    kw = Format(aktdatum, "ww", vbUseSystemDayOfWeek, vbUseSystem)

    'alternativ Berechnung Kalenderwoche nach Ch.Kremer
    Dim t As Variant, kwoche As Variant
    t = DateSerial(Year(aktdatum + (8 - Weekday(aktdatum)) Mod 7 - 3), 1, 1)
    kwoche = (aktdatum - t - 3 + (Weekday(t) + 1) Mod 7) 7 + 1

    'Ausgabe
    'MsgBox "Kalenderwoche nach Ch. Kremer : " & kwoche & vbLf & _
    '"Kalenderwoche als Format des Ausgangsdatums: " & kw

    ActiveDocument.FormFields("WuDatDiKW3").Result = kw

    End Sub

    Sub Wunschtermin7()

    aktdatum = CDate(ActiveDocument.FormFields("WuDatMi1").Result)

    'Berechnung Kalenderwoche als Format von Datum
    kw = Format(aktdatum, "ww", vbUseSystemDayOfWeek, vbUseSystem)

    'alternativ Berechnung Kalenderwoche nach Ch.Kremer
    Dim t As Variant, kwoche As Variant
    t = DateSerial(Year(aktdatum + (8 - Weekday(aktdatum)) Mod 7 - 3), 1, 1)
    kwoche = (aktdatum - t - 3 + (Weekday(t) + 1) Mod 7) 7 + 1

    'Ausgabe
    'MsgBox "Kalenderwoche nach Ch. Kremer : " & kwoche & vbLf & _
    '"Kalenderwoche als Format des Ausgangsdatums: " & kw

    ActiveDocument.FormFields("WuDatMiKW1").Result = kw

    End Sub

    Sub Wunschtermin8()

    aktdatum = CDate(ActiveDocument.FormFields("WuDatMi2").Result)

    'Berechnung Kalenderwoche als Format von Datum
    kw = Format(aktdatum, "ww", vbUseSystemDayOfWeek, vbUseSystem)

    'alternativ Berechnung Kalenderwoche nach Ch.Kremer
    Dim t As Variant, kwoche As Variant
    t = DateSerial(Year(aktdatum + (8 - Weekday(aktdatum)) Mod 7 - 3), 1, 1)
    kwoche = (aktdatum - t - 3 + (Weekday(t) + 1) Mod 7) 7 + 1

    'Ausgabe
    'MsgBox "Kalenderwoche nach Ch. Kremer : " & kwoche & vbLf & _
    '"Kalenderwoche als Format des Ausgangsdatums: " & kw

    ActiveDocument.FormFields("WuDatMiKW2").Result = kw

    End Sub

    Sub Wunschtermin9()

    aktdatum = CDate(ActiveDocument.FormFields("WuDatMi3").Result)

    'Berechnung Kalenderwoche als Format von Datum
    kw = Format(aktdatum, "ww", vbUseSystemDayOfWeek, vbUseSystem)

    'alternativ Berechnung Kalenderwoche nach Ch.Kremer
    Dim t As Variant, kwoche As Variant
    t = DateSerial(Year(aktdatum + (8 - Weekday(aktdatum)) Mod 7 - 3), 1, 1)
    kwoche = (aktdatum - t - 3 + (Weekday(t) + 1) Mod 7) 7 + 1

    'Ausgabe
    'MsgBox "Kalenderwoche nach Ch. Kremer : " & kwoche & vbLf & _
    '"Kalenderwoche als Format des Ausgangsdatums: " & kw

    ActiveDocument.FormFields("WuDatMiKW3").Result = kw

    End Sub

    Sub Wunschtermin10()

    aktdatum = CDate(ActiveDocument.FormFields("WuDatDo1").Result)

    'Berechnung Kalenderwoche als Format von Datum
    kw = Format(aktdatum, "ww", vbUseSystemDayOfWeek, vbUseSystem)

    'alternativ Berechnung Kalenderwoche nach Ch.Kremer
    Dim t As Variant, kwoche As Variant
    t = DateSerial(Year(aktdatum + (8 - Weekday(aktdatum)) Mod 7 - 3), 1, 1)
    kwoche = (aktdatum - t - 3 + (Weekday(t) + 1) Mod 7) 7 + 1

    'Ausgabe
    'MsgBox "Kalenderwoche nach Ch. Kremer : " & kwoche & vbLf & _
    '"Kalenderwoche als Format des Ausgangsdatums: " & kw

    ActiveDocument.FormFields("WuDatDiKW1").Result = kw

    End Sub

    Sub Wunschtermin11()

    aktdatum = CDate(ActiveDocument.FormFields("WuDatDo2").Result)

    'Berechnung Kalenderwoche als Format von Datum
    kw = Format(aktdatum, "ww", vbUseSystemDayOfWeek, vbUseSystem)

    'alternativ Berechnung Kalenderwoche nach Ch.Kremer
    Dim t As Variant, kwoche As Variant
    t = DateSerial(Year(aktdatum + (8 - Weekday(aktdatum)) Mod 7 - 3), 1, 1)
    kwoche = (aktdatum - t - 3 + (Weekday(t) + 1) Mod 7) 7 + 1

    'Ausgabe
    'MsgBox "Kalenderwoche nach Ch. Kremer : " & kwoche & vbLf & _
    '"Kalenderwoche als Format des Ausgangsdatums: " & kw

    ActiveDocument.FormFields("WuDatDoKW2").Result = kw

    End Sub

    Sub Wunschtermin12()

    aktdatum = CDate(ActiveDocument.FormFields("WuDatDo3").Result)

    'Berechnung Kalenderwoche als Format von Datum
    kw = Format(aktdatum, "ww", vbUseSystemDayOfWeek, vbUseSystem)

    'alternativ Berechnung Kalenderwoche nach Ch.Kremer
    Dim t As Variant, kwoche As Variant
    t = DateSerial(Year(aktdatum + (8 - Weekday(aktdatum)) Mod 7 - 3), 1, 1)
    kwoche = (aktdatum - t - 3 + (Weekday(t) + 1) Mod 7) 7 + 1

    'Ausgabe
    'MsgBox "Kalenderwoche nach Ch. Kremer : " & kwoche & vbLf & _
    '"Kalenderwoche als Format des Ausgangsdatums: " & kw

    ActiveDocument.FormFields("WuDatDoKW3").Result = kw

    End Sub
     
    ahedde, 1. Dezember 2016
    #6
  7. Gerhard H
    Gerhard H Erfahrener User
    Hallo Alex,

    da ist schwer was raten, ohne das Dokument zu sehen. Lad es doch mal hoch- bei Bedarf in anonymisierter Form.

    Außerdem: Wenn du dich für eine Variante der Berechnung entscheidest, sparst du 20 mal 1 bis 3 Zeilen Code.
     
    Gerhard H, 1. Dezember 2016
    #7
Thema:

Kalenderwoche einfügen?

Die Seite wird geladen...

  1. Kalenderwoche einfügen? - Similar Threads - Kalenderwoche einfügen

  2. ISOKalenderwoche Powerquery

    in Microsoft Excel Hilfe
    ISOKalenderwoche Powerquery: Hallo Ich möchte in einer Powerquery Abfrage in einer benutzerdefinierten Spalte die Kalenderwoche errechnen, nur schaffe ich das leider so überhaupt nicht. Als normale Excelformel kein Problem...

  3. Vereinfachtes Gantt-Diagramm mit Kalenderwochen und Jahren

    in Microsoft Excel Hilfe
    Vereinfachtes Gantt-Diagramm mit Kalenderwochen und Jahren: Hallo zusammen, ich wollte ein einfaches Gantt-Diagramm erstellen, das anhand der bedingten Formatierung mit der Eingabe von Kalenderwochen und Jahren arbeitet. Die bedingte Formatierung für die...

  4. Kalenderwoche in 2024

    in Microsoft Outlook Hilfe
    Kalenderwoche in 2024: Hallo, ich habe es in Erinerung das in 2021 im Kalender die Kalenderwoche angezeigt wurde. Wie stelle ich dies in 2024 ein? <img src="https://www.office-hilfe.com/support/styles/hajo/grusz1.gif"...

  5. Kalenderwoche finden und Werte übernehmen

    in Microsoft Excel Hilfe
    Kalenderwoche finden und Werte übernehmen: Hallo liebe EXCEL Freaks :) Ich brauche etwas Hilfe von den Experten, damit das Internet nicht weiterhelfen kann. Ich habe einen Kalender-Plan für 4 Mitarbeiter. Hier tragt jeder Mitarbeiter...

  6. Arbeitsstunden Kalenderwoche

    in Microsoft Excel Hilfe
    Arbeitsstunden Kalenderwoche: Hey zusammen, ich bin über die Suche nicht so richtig fündig geworden. Falls ich das passende übersehen habe, dann sagt mir gerne kurz Bescheid. Folgende Thematik: Ich habe in der sehr einfach...

  7. Wert aus Kalenderwoche in eine andere Tabelle übernehmen

    in Microsoft Excel Hilfe
    Wert aus Kalenderwoche in eine andere Tabelle übernehmen: Hallo, ich habe verschiedene Tabellenblätter in einer Mappe. In dem ersten werden wöchentlich Werte eingetragen, in dem zweiten nur monatlich. Das dritte Tabellenblatt füllt sich selbständig aus....

  8. MsgBox mit Berechnung und Eintrag in Tabelle

    in Microsoft Access Hilfe
    MsgBox mit Berechnung und Eintrag in Tabelle: Moin moin liebe Formengemeinschaft. Nun bin ich schon das WWW am Durchsuchen und habe nichts passendes gefunden. Ausgangspostion: Ich habe eine Datenbank und überwache hier Daten mit einem...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Akzeptieren Weitere Informationen...
    Information ausblenden