Kalenderwoche zusätzlich anzeigen

Hallo Leute,
die Beispieldatei enthält einen universellen Kalender mit der zusätzlichen Möglichkeit den Anzeigezeitraum vom 01. Januar auf den 01. Juli umzuschalten.
https://www.herber.de/bbs/user/71898.xlsx
Ich will die Anzeige eines jeden Tages um die Angabe der aktuellen (deutschen) Kalenderwoche ergänzen, in der gleichen Zelle.
Die erweiterte Zellen-Breite wegen der Zusatzinformation spielt keine Rolle.
Meine bisherigen Versuche führten zwar zu korrekten Berechnungen allerdings in 2 benachbarten Zellen, aber genau das soll vermieden werden. VBA soll nicht eingesetzt werden.
Die Anzeige für den heutigen Tag müsste wie folgt aussehen: Mi. 13.10.2010, 41.KW
Hat jemand einen Vorschlag?
mfg
reiner

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Reiner,
das Problem besteht darin, das du das Datum berechnen willst/muss. Das Ergebnis der Berechnung benötigst du in der Berechnung der KW und in der Formel für die Darstellung des Ergebnisses.
Formel Datumsanzeige im Kalender:

=TEXT(Datum;"TTT. TT.MM.JJJJ, ") & " " & TEXT(Kalenderwoche;"00"".KW""")

Datum und Kalenderwoche muss du durch die entsprechenden Berechnungsformeln ersetzen.
Das Datum mit den von dir bereitsbenutzten Formeln. Die Kalenderwoche mit einer der nachfolgenden Formeln.

Formel-Kalenderwoche:
=KALENDERWOCHE(Datum)
oder Berechnung nach DIN EN ISO
=KÜRZEN((Datum-WOCHENTAG(Datum;2)-DATUM(JAHR(Datum+4-WOCHENTAG(Datum;2));1;-10))/7)

Berechnest du das Datum auf einem separaten Blatt dann wird die Kalenderformel zu:

=TEXT(T_1!A2;"TTT. TT.MM.JJJJ, ") & " " & TEXT(KALENDERWOCHE(T_1!A2);"00"".KW""")
oder
=TEXT(T_1!A2;"TTT. TT.MM.JJJJ, ") & " " & TEXT(KÜRZEN((T_1!A2-WOCHENTAG(T_1!A2;2)
-DATUM(JAHR(T_1!A2+4-WOCHENTAG(T_1!A2;2));1;-10))/7);"00"".KW""")

Wenn du in diesen Formel versuchst, die Berechnung des Datums direkt einzubauen, dann werden die Formeln entsprechend komplizierter, denn du müsstest alle "T_1!A2" in den Formeln durch die entsprechende Formel zur Datumsberechnung ersetzen.
Danach hast du aber ein Problem: Die bedingten Formatierungen im Blatt funktionieren nicht mehr, da in den Zellen jetzt Text steht und nicht mehr das Datum als Zahlenwert.
Eine brauchbare Alternative wäre, dass du die Zahlenwerte des Datums in ausgeblendeten Spalten berechnest und nur die Spalten mit der Textanzeige sichtbar lässt. Dann werden die bedingten Formatierungen komplizierter, aber kann es wohl noch umsetzen.
Gruß
Franz

Beliebteste Forumthreads (12 Monate)

Kalenderwoche zusätzlich anzeigen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread