Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Datum von/bis ermitteln nach Eingabe der KW

Forumthread: Datum von/bis ermitteln nach Eingabe der KW

Datum von/bis ermitteln nach Eingabe der KW
17.07.2003 08:09:06
Martin Glarner
Hallo zusammen,
Ich habe folgende Aufgabe zu lösen:
Nachdem der Benutzer die Kalenderwoche(1..52) und das Jahr eingegeben hat, muss ich mit einem VBA-Script das Anfangs- und Enddatum dieser Woche ermitteln.
Für die Dateneingabe werde ich eine Userform erstellen. Dies ist kein Problem, doch wie berechne ich die beiden Datum ?
Datum_1 = (Akt_KW ???? Akt_Jahr)
Datum_2 = (Akt_KW ???? Akt_Jahr)
Besten Dank für Eure Hilfe
Gruss Martin
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Datum von/bis ermitteln nach Eingabe der KW
17.07.2003 08:38:31
galenzo
Hallo,
bei meinen Veruschen ist diese Funktion herausgekommen,
die aber sicherlich noch optimiert werden kann:
(hier: Jahr in B2, Kalenderwoche in A2)
Datum_1: =DATUM(B2;1;1)-5-WOCHENTAG(DATUM(B2;1;1))+(7*(A2))
Datum_2: =Datum_1+6

AW: Datum von/bis ermitteln nach Eingabe der KW
17.07.2003 08:53:27
Martin Glarner
Hallo,
Besten Dank für Deine Hilfe.
Funktioniert das auch mit einem Script in VBA ?
Gruss Martin

Anzeige
AW: Datum von/bis ermitteln nach Eingabe der KW
17.07.2003 09:06:19
galenzo

Function ErstesDatumKW(Kw As Single, jahr As Single) As Date
Dim d
d = DateSerial(jahr, 1, 1)
ErstesDatumKW = d - 5 - Weekday(d) + (7 * (Kw))
End Function


AW: Datum von/bis ermitteln nach Eingabe der KW
17.07.2003 11:28:54
Martin Glarner
Hallo galenzo
Herzlichen Dank für Deine Hilfe
Gruss Martin

;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige