Anzeige
Archiv - Navigation
448to452
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
448to452
448to452
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Kalenderwoche und Datum
03.07.2004 21:56:08
Roland
Hallo zusammen,
ich möchte in einer Textbox die Kalenderwoche (z.B. 37) eingeben und dann den zugehörigen Montag (als 1. Tag der Woche) und den nächsten Sonntag in einer Labelbox angezeigt bekommen!
Wer kann mir bei der Formel oder VBA-Code helfen?
Besten Dank
Roland

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kalenderwoche und Datum
03.07.2004 23:01:36
Roland
Hallo Klaus-Dieter,
ich habe die richtige Info nach deinem Rat gefunden!
Besten Dank für die schnelle Hilfe!
Roland
AW: Montag der Kalenderwoche x
FP
Hallo Roland,
diese Funktion gibt Dir das Datum des Montags der gesuchten KW zurück:

Function KW2Montag(Optional KW As Byte, Optional Jahr As Integer) As Date
KW = IIf(KW * -(KW < 54) > 0, KW, 1)
Jahr = IIf(Jahr < 1901, Year(Date), Jahr)
KW2Montag = DateSerial(Jahr, 1, KW * 7) - 3 - DateSerial(Jahr, 1, 2) Mod 7
End Function

Wird weder die KW noch das Jahr übergeben, ermittelt die Funktion den Montag der KW 1 des aktuellen Jahres.
Den Sonntag erhältst Du dann, indem Du 6 Tage zum derart ermittelten Datum addierst.
Servus aus dem Salzkammergut
Franz
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige